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Weixome To CompuServe] 
Ti ik Largest Computer Information Service In Tf ie Universe. 

(As Far As We Know.) 



More people use CompuServe than any other online 
computer information service on Earth. 

Over 380,000 members access hundreds of information, 
communications and entertainment services online. 

Thousands with similar interests and special expertise 
converge regularly and exchange ideas on an ever-expanding 
list of special-interest Forums. 

They have access to a combination of more financial 
information, a greater variety of shopping services, 
and deeper research resources than any other online 
computer service. Anywhere. 



Of course, it's conceivable that there's a service like 
ours somewhere thai could give you more for your money 
But you may have to travel a few light-years to find it. 

Instead, all you have to do is visit your nearest computer 
dealer today To order CompuServe direct, or for more infor- 
mation, write: CompuServe, 5000 Arlington Centre Blvd., 
Columbus, Ohio 43220. Or call 800 848-8199. In Ohio and 
Canada, call 614 457-0802. 



RsHder Service No. 145 



CompuServe* 
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•to 



37 



Tomb of Horror for the C-64 by Cleveland M. Blakemore 
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LET'S FACE IT- MAIL ORDER HOUSES ARE NOT ALL THE SAME! 
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CONVENIENCE-FAST SERVICE-RELIABILITY-SUPPORT 
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During ihe incepliort o! Soltware Support International, we examined [he customer support 
policies of many Commodore mail order houses. One thing became quite evident: MAIL ORDER 
HOUSES ARE HOT ALL THE SAME!! Soltware Support Inlernalional has developed customer 
support policies you can relate to. 

•CONVENIENCE: Our loll tree order line, tor instance, saves you money and adds the convenience 
ol linger lip shopping. Alter hours order lines are provided tor late nighl or early morning shopping. 
'FAST SERVICE: 24 hour processing, insures your purchase will be received in a timely manner. 
"RELIABILITY: Policies such as NOT charging your charge card or castling your check until 
shipping, replacing defective materials as quickly as possible and lolling you know when an item 
is backordered. all adds up lo policies you can trust. 

"SUPPORT: Out lechnical support line rs manned by some ol the mosl knowledgable Commodore 
experts around. 

Our catalog, listing detailed information on our products as well as hundreds of others, is mailed 
automatically lo our regular custmers. If you have never ordered from us, bul would like lo see 
why thousands of (allow Commodore users have chosen us as lhair mam source o( software and 
accessories, simply pick up the phone and give us a call, or drop us a line requesting our Spring' 
Summer 1388 catalog Remember, our business ts SOFTWARE SUPPORT! 
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AbacusES Software Softwtirks 



8.is ■ c Ccxnptler 64 21.97 

6as>e CaflifKlef 126 34.07 

Becker Bag* 10f £gd» 33 B7 

Cad Pak 64 24 97 

Cad Pak 124 34.97 

Cri,ut Pak 64 or 124 24.97 

Geo* Injlde it Qui Book .. .15 34 

Geoi Jnsi(iif 4 Ou1 Duk , 11.74 

QiOfl Trick* (L Tips Bflok 13 20 

Geoa Tricks 1 Tips DM ".74 



K ACCESS 

ilg Iotwmi rrcxix« H rfl 



Ecr-dcn * L-pshcK . 24.97 

LB i Tourn i Erpc I . 12.97 

Mac* S . 21.97 

*.*■:■ ■:o , 30 97 

Tip-Hi Fume 24.97 

World ClinLfWlfr Board . 24.97 

W.C LB FamCoutMi 1 cr 2 1?97 

Ace o" Aces iB.97 

Apollo 14 16 97 

Su&c-ie Ghof 1 . . 14 97 

CvdSitihw . . v . . 1497 

Comet ... 14 9J 

four-Li 4 IftclW* 14.97 

Hantaan 14 97 

KH*d Untu Dtad 14 97 

Mimpun 14 d; 

PuwTutnjn 9 97 

Po«fr al S*» 14 97 

PtOfKi Spac* Sii'icr 9 97 

Ten Drive 18 97 

Tht Tram 18 97 



Own* 124 

Hi-nf ■::..]'.ii""M." B4 . . 

Gunpublil. 4* 

OeojptH 

Geo*iMter i Woridhac 64 . 
CleewMer'i Workihop 124 



42 97 
42,97 
42.97 

IB 97 
30 9? 
42.97 



^BffjdejtjuHlfciftUBre- 

Arcade Game Const S»l 
Carmen Sindiepo Europe , 
Carmen Sand-ego USA . . 
Carmen 5and«ego Wo i id . 

Cauldron 1 1 2 

Print Snap 

Prim Shop Company . . 
PS Graphic* 1 or 2 of S . 
P/S Holiday Qnph>ci 

Aulodual ... 

Mcmbiui 

Ogre . . 

Ultima 1 . .... 

Uliime J 

m:-i 4 

uhmb 



CAPCOW 



Gnosis 1 QoMra u« 

Sme *jmt IS BT 

1942 , . 1197 



CINEM AWARE 



Thunder C1»opper 
Up PffHWpff 



1897 
18 97 



Aliens II 97 

Blach|ack Academy . 24 B7 

Faery Tales XV 

RrePo-er t5 97 

Go* Boo Atr Rally . IB 97 

Las1 HHl 219? 

Maniac Mansion 21.97 

M on: s Mag* 24 97 

ftomamic Encounters 24 s? 

Shanghai 1fl 37 

o ( 5 K_t r. t" V 

Somvorks 

Desk Pakl ID 58 

Desk Pah II . , , , 30 97 

Font Part I 10 SS 

Fort Pack II 16 97 

OwsM 3«B7 

Geos lie 42 87 

Gadcalc 64 30 9? 

G.Bdcalc 128 42.9? 

Oeodei M 10.86 

Gooder. Desk pah 128 1297 

Gaol.la 84 30 97 



Deirrvje. ot m« Cioam 
KM ot Chicago 

Sobad . ! 
Three Sloogei 
Warp Speed ICajTI 



Commando 
l*4>i Warriors 
Karat* Cnamc 
Kit MU 

hur. J Fu U.l'.V 
Speod Buggy 
Tag Team Wrqslling 
1nc:ory Road . 



21 »7 
2197 
2197 
2197 
2197 
30 97 



IS 97 

1297 
1(97 
12.97 
18 97 
12.97 
18 97 
21,97 
18.97 



0*gi1ai Supftrpak. 2 90-97 

Pochal Wrller I 35 97 

P«ke1 Filer 2 36.97 

Portal Planner 2 36.97 

Dictionary Di Ik 9.87 



tltCTRONICABTl' 

AlianFlraa 19.36 

Amnealt 25.48 

AtcikFok 21.40 

Baid'iTalel 25.4S 

Bard's Talo I Kinis 9.16 

Ba-il - Tala II Eb 48 

BardjTilellHInlj 9.16 

Bard I Tale III 2S.4B 

flj'd i Tala III H.nti 9 16 

Chan manor 20OO . . 2b 48 

ChuckYaajaraAFS 22.12 

DanOaif 13.24 

OallaPalrol 13 24 

Damon Slaiker . . 19.36 

tJragonaLaii 16 30 

Earth Otbn SUUon 19.36 

Inatanl Music 19.36 

Legacy or the AncMtnti 1 9 .36 

Hub'e Madness 19.36 

Mailer Nrnja 19.36 

Mavis Beacon Typing 25.46 

Monopoly 19.3b 

Oulrageous Pases 31.60 

Paper Ctp 3 5 ■ 63 

!'.;-■ r | Put ihe. 31.30 

Pegaaua 19.36 

••■,,.. 19 38 

rtDrtlonl 19 36 

Senicm 13 24 

Sflltt r 21 40 

Scrufjpial 2b 48 

SkaloorOie 19 36 

Sii'oil 19.36 

Stnta FMt tax 

TaaigMa Fumom 22.42 

'« ]---!-Sff"k^i -'2 

Worti Tour Gor ... . 19.36 
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DATA SOFT 



Alternate MeaMy City 

Ci1y Hinl Book 

i\ :■-■■■ \>\ li.i \'\-. t D i!::i:i.iri 

Dunoon Hinl fiook 

Bttttt Dioidz 

Hum For Red Oclobir , , , 

Rubicon Alliance 

lobruV i 

Video Trtlg CorT.panwn 2 , 
Vidoo Title Stwp w^omp 1 



Boukdhtr Cain Conn Kit 
Etitottl* Garr*5 . . 
CtiiTic Wrt^irg . ... 

Cg-I Cop 

C-'iMfe A CalemiBi .... 

Dsr- ^wortl 

D«:rrjv»jT 

D-nfi* Bombfli' 

Fh-sI LOcid Carlndg* . 
4 K t Racinij 
Tlinj Game) rtmter E*tifjn 
Orjus Scraptook i. 2 or 3 
Horn* Video Produce* . 
Imponitile Mlulon II . , 
i A i :■ , . : .ft.. 

J, J I 'Mi-.f- ■- . 

OfTinhcron Conspiracy: . , . 

Red Wariiof 

Sp*dertot 

Gpurlirto Not« Baseball , . 

8v**l Cat 

Slroot Spoils Baseball . . 
SK*et Sports :Ba5keltwll . 
3trt?fll St70rta:Socter . . . 

Summtjr Oame^ll 

Wicior Games , . 

World GufflOS 



15.97 
15 97 
2* .97 

24 .S7 
15.97 
1S.97 
15 97 
2497 
14.97 
24-97 
24.97 
24.97 
15 97 
30-97 
24.97 
24.97 
12.37 
24,97 
IS. 97 
17,16 
24.97 
12 37 
2 4 .37 
24.97 
24 97 
13.92 
12.97 
24.97 



Advanced Art SoiAo 24.97 

EH* 11 97 

Ekt* Hnt Book (L*roy) . . 5 77 

Gy« ol ThJeve* Mr97 

jtfurle-r 2T.97 

KripMOrc 1597 

Revs - 1147 

Sir GW*r 24 97 

Tht P**Ti 1 1 97 

TfKktf 24 97 



GAMfSMJI* 



Cnarro. 5aseca,i tS97 

Cnarro. Basketbalf . 21.97 

GFLFcwtSall 2T.97 

Star Rank Boirrfl II . . . T8J7 

Bcainij I Tenraj, t«J.97 

^OWPROSE 

AirbcHne Rangor 21.97 

F-iS Sir.ke easia 21,97 

Gunship 21.87 

Pirales 24.87 

Project Steailh Fughfar 24.97 

Red $lorm Rising 24.97 

Silent Service 21.97 



Gad Stree I Brawler 1B.S7 

iJ'oiiK H„ : .h:i IB 17 

Bop A Wr«s>1t« ■ I. :.«.' 

CrOJSwOf-d IVagifi M.B7 

OeiaVu 21.97 

Gainntle. 21.97 

eawntet-Oeeper Oungeon .... 15.97 

Warrior ComDa: Simurator . . lfi.97 

1nd.»r Sportt 1B.97 

Indf 1 JoniK.Terftpla of Doom . . . 21.97 

InFiltraSof I 14.97 

InnHriior II 21,97 

into tne Ed^ls> Nejt 19.97 

Misi Soccer 21.97 

Paperboy 21 .97 

RoidHunner 21.97 

Sut>*rSr,ai Ice Hockey 21 97 

SujstiScaf Socc*r 2t.97 

Kewouf 16.97 

Profesiorttl Software Inc 

Flesl Fkier 64.'12B 24.97 

flMtSyKem ll-i- 36.97 

r*st System IV 4*1.97 



iil 

mMMM a««*"t *"OH, Met 

EtamaJQuMf , , . 24 97 

G+rnj!ofHff Ffaattf ifLfT 

G*rni1one Wamoi 9 97 

Pto!«nll 24 97 

Ptuntaw 111 2* 97 

Ciu«!jWi I 24 fl7 

Quesmj*! n 24.97 

Reims ol Darkness 24.97 

R*gs c4 ZJfin 24.97 

ShBdelStofag 24 97 

Wargame Corsiructon Sel t4.97 

HbaVdTl Crown 24.97 



SHAREDA1A 



Corc«-ntraiion 9 95 

Fiknt'y F«ud 995 

Jeopardy 9 95 

Wheel Or Forturw 9 95 



SOLUTIONS UNLIMITED 

Biia»arcJ Maier 24 97 

QraluLii* .... . 12.97 

koaFaclon. 24 97 

PPoloFiman . 18.97 

StteenF.'I . . 21,97 

SPRINGBOARD 



Ctttiflnta Maker 26.48 

Cefliticate Maker Libr.l 20.4C 

NewEroom 33.36 

NewEroorTrChpart 1 20.40 

Newsroom Clijjan 2 ....,., . 26.66 

Newsroom ClipaM 3 . ,,,«,, 20.40 

Pi'S Graphic Expander . . . 23.64 



AJOGIC 



Fujrt Simula VX II 

F S Sc«fierj^Choo» 1-4 

FtgM Sim Scenery 7 

F s 'Sw^ery Jepan 
F S SMUTtfc SanFi-an 
JtE2 

Sttaii Mn-ior* 



33 97 
U IB 
17 4*5 
15 97 
T5 97 
27 36 
13 94 



TlTEUrCRJCS 



ACCOVitl Payabf 
Accn-nu H«4<vebi* 
Out Uf*QV 2 

Dita Vi'i-if t26 
DtiktjQ PgOlaiher 
E^ctfonc l>«-Mwo* 
Gei*#fil L*0g*r 
Ir.eniory Manaio^nent 
Plrtn#r 64 
Partner 126 
PtyttH Maru^emtnt 
SwAcj c 5'dawjyi 44 
SwitlcilcSidawiyi 126 
SytviiPortef F.P64. 
SyM i Porter F P 12B 
Word Wrn*r 3 
WnrdWrilar 126. 



33 36 
33 36 

17.1B 
33 36 
39 64 
13 92 
33 36 
33 36 
33 36 
39 64 
33 36 
17.18 
33 36 
33 36 
46 32 
33 36 
33 36 
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'.. jf, «r in it ,]jr i,>r,: 



Prlntnattir Piui 21.97 

ArlQallary 1 or 2 16.87 

Art Gallery America- H-sl Call 

Art Gallery Fantaiy 1E.97 



MISCELLANEOUS 



Art 

I.. :■ :.■ ii" ' '■'■.■ 64 


W.»7 


Sob's Term Pro 126 . . , , 


. . 3BB7 


Easy Working Triple Pak , 


12 ST 


B W Business Form Shop , 


24.97 


BW Geo* Word Publisher 


24.U7 


CSU Utwe Altgn Ki1 . . . . 


30.1! 


CSH Pic:oC"iij"i Maruj I . 


2J.55 


GSM Protection Manual )■ 


26,15 


Dart Caille 13-60) .... 


. . . 2t.«7 


Doodle 


J4 87 


FgnlMtilff II 


30 97 


FonlMatle<i26 . 


3497 


Gefveoiogy Family Tree 64 


M97 


Genealogy. Favnily Tree 126 
He»Mon44<C*r1> 


38 B7 


9 95 


>• ,;■■ Ii.. , n 

HiTKh - Prpfit Power 


t«a 


10 97 


Kenam. Contra , . 


IB 97 


Konami Ruih'N Altau 


18 97 


Kr>nani:¥ie Ar-Kgng Fu ? 


1t97 


Merlin Assembler M 


30 97 


Merlin Aiiemblef 126 


4?9" 


V-:'.: I*.'.- 


36 97 


Unifciilfii WWF WreiEi^g 
1DO.0M Pyramid 
5':l.i>'.[: P*fi N«*i #1.^ 
SlrtpPokir 


24 95 


9 95 


38 97 


H97 


Pc*ei 0*'* DiU 1.2 or 3 


1197 


Supertiave W or 126 


at 97 


&U|Mr04Mi If* EhOOt, 


12 48 


Sup* Sunday 


23 «4 


Supencnptfta 


30 97 


Supancfft 126 


42 97 


Wijiarary &c T»cn 


24 97 


ACCESSORIES 


1541.71 Sena! Case 


4 95 


!M! 71 Pom Catxe 


495 


C-«4 Cow Uor»HK Cora 


4 95 


CM Bepairaoie Po«a. SucsUr » (J 
H5-2JJ imarlata MM 


MW 3i0 primer Wanaca 


49 95 


Api<nQ*e4H 


37 95 


Aprnsoand E Herder Cafe 


15 95 


Aprolai 1200 Baud M.nimtkJam 


Corrnnodof* 1331 Mouse 


37 95 


Mousa Mai 


8 95 


1541 Oust Cover 


8 95 


1871 rjuai Cow* 


Me 


C-o4 Dwl Cover . . 


B95 


C-12B Dusl Cover 


8.95 


Disk Notehef.Square Cui . 


4 95 


V 25" DrsK Unve Cleaner 


I.M 


2 y Dish Drive Clearer 


8.95 


10 cm task storage . . . 


. . . I.B5 


50 Cm Cask Blorage . . 


9 95 


100 CrvtDialt Storage *■ Loci 


12 93 


80 Cm a.5 + Oltk Slor w Loth . 


Iff" Disk Labela-2% cm 


1«J 


S 15" Disk libel,-*) cut 


100 


~i V DS.'DD OisketEes 


1.29 


ffiff" DS.DD D.skeltea.eJacI 


39 


525"D3,DrjDLakfll[as.10CDlors 79 


Wma rv. :■ : . r..i cn[ Slack 


1,00 


Tywek 5leevas-Hlg1t Oua .Iw 


. . . ea .09 


S'ik Shk-Joyslick 


ass 


Ouick Shol ll-Joysuck . . 


.... 7.9! 




. . . 10.95 


Tac B-Jovstirt 


. . 11.95 


22.85 


Surge ProlccEoi.'Hower Pad 


39.95 



MANY OTHER TITLES AVAILABLE - CALL FOR PRICES! 



ATTENTION C-128 OWNERS 

M™ lhal Commodore has released the 0-1 28 D wild 64K of video RAM, 
we should bo seeing 1 28 programs addfess this laniaslic now lemurs 
soon. 

BASIC g already has Ihe capability ol using all MK ol video RAM. It you 
own the C-128 in stock condition, you own all I6K of video RAM ihji 
Comrnodore fell *as necessary, LI tang Basic 8 format and Ihe full 84K 
of video RAM provides you with the abitny to scroll through video mem- 
ory as well as enhanced color resolution. 

Up undl now. to upgrade Ihe C-12B Id 64 K ol video RAM you would have 
lo first search out Ihe components, then find a compefeni repair ouliel 
1o desoider and mslall the part? Whal ■ hattlel 
SOLUTION — Wn have developed a module thai simply p ugs m lo ihe 
mother board ol your 0- 128. No tpltrttrtd solder - No hen damage 
— No battle. 

This package includes lull easy to follow insiallalron Instruclions, a lesl 
program lo validate proper insiaflalrcn and Ihe plug-in upgrade module. 

only- $34.95 



C-128 Helper 

Helper is an exciting new type ol Software lor ihe C- 1 28 
Computer wilh 80 column monitor 

• Screen Based Da I a basing 

• User Delmabie 

• Editor allows modilications 

■ Demo included thai serves as a Basic 7.0 Electronic 
reference manual 

• Screen dumps lo printer 

• 1581 version available 

ONLY $24.95 



Graphic An Disks 

Top quality graphics are hard lo tlnd. These will definitely 

please you. 

« 10 Volumes-avaflable 

• ThernjK-loilowed in most 

e Pprttmaster'"/p[inishop'" Side A compatible 

■/asily transferred lo 1581 

I ONLY S14.95 per Volume 






Elite V3.0 
Elite V3 copies the " impossible " 

• Copies V2.0 ol a popular 64/12B planner, trier 
(64 only), writer 

• Leaves the Backup protection Iree. 

Why pay lor Backups of lilies you already own' 

ONLY $6.95 



Elite V4.0 

is second lo none 



for ils copying 



Our Elite Series 
capabilities. 

• Elite 4 created lo copy Idles protected to the MAX 1 

• Special MAX Copier included 

• Update policy included 

• Free Bonus— Trie Shotgun I 

ONLY $14.95 



Super Cat 

The greatest disk library cataloger ever produced for ihe 
Commodore 64 

• Caialogs up lo 640 Disks w/5000 titles per catalog 

• Twice as many with 2 drives 

• Load, save, edit, change any entry 

■ Prints a variety ol reports and even labels 

• Lightning fasi and easy lo use! 

ONLY $24.95 



-Si- . ■ • " .■ "_i? : iLi^i— ^ 

Prelect p t™nix. Ws assembled a learn ol the holiest archival programmers In the industry and qave them toe* 
Challenge ol therr carreers: create a professional utility system that would sel the tone for the future of Commodore 
personal computing - a system lor Ihe neil decade and beyond. 

Hundreds ol eiperl-hours later, ilia! team delivered to os a utility package of sobering power and scope A oackaoe 
lhal could turn an average hacker inlo a superstar, A package crealed at Ihe very boundary between whal is and is ml 
possible. A package caited Renegade. 

Renegade lakes the very besl ideas from the past and re-crealee Ihom, combining alnlo ol Ihe art lochnloues wilh a 
conceptual grasp ol Ihe luture of compuung. The result is dynamic - classic uiilnTu are transformed Inlo muscular 
components ot a system designed for speed, power, and flexibility 

Hare art Some ol lha Feeturtt Sulfl Into The RENEGADE! 



+ Single or Dual High Speed Dala Copior 

* Singloor Dual Stale ol lha Art Nibblm 

* Di reel or y E d ito r ; rg a nije your Dis K s 

* GCR Editor: For thq Experienced Hacker 

* Geos" Moduai: PARAMETERS and TOOLS 

* 200 Parms : For Ihoso tough to backup disks 

* N ew Pa r am eter u pd a 1 es o niy S9 . 9 5 each 



Single or Dual Ullra Feet Fiis Copier 

* Capable of Archiving RapidLokProlection 

* Scrolling M/L Monilor with Drive Won 

* Error Scanner wilh Unique Sector Editor 

* Byte Paltern Scanner High Speed Searches 

* Upgradable Sub Menu: New tools in the works 

* Major RENEGADE upgradesonly J9 95 each 



* Compatable with C-64- 128 with 1541/71 DrivG3 * Technical support available: ot course 

Renegade comes wilh ovor 2J5 paramolers, and additional parameters are available overy 2 mondial Also Renogade 
program updates are available to registered owners 3 limes a year lo ensure lhat Renogade will aiwayi tie a slep ahead 
of anything else Oh the markell 

Now nolhmg can slop you from lakmg TOTAL control ol your solfm jrel flenegade gives you Ihe mo si advanced loois 
on Ihe markei for one remarkably tow price. And. unlike some companies that claim lo sell utilities unlimited in power, 
Renegade is produced by a company ihal knows lhal ihe customer is our mosl valuable asset. 

Renegade: Next generation software - lor (he next generation hacker. 



Only $34.95 



raphic Label Wizard 

ThisX'ihe ultimate label utility, 
laiahasmg with graphics included 
pporis Commodore as well as Epson compallbje' 
nters ■ / 

sier" Printshop'" Software Solutions 
bie ^/^ 

1 581 transferable 
• Satisfaction 

ONLY S24.95 
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C-128 Cannon 

The total copy/ulilities package crealed just tor C 1 28 
owners 

• Nibblers— Single or Dual 

• Fast Copiers— Single or Dual 

• File Copiers— Single or Dual 

• Scanners— Error ano Density 

• 1581 Utilities 

• Directory editing 

• 100 Free Kracker Jax Parms 

• 1541/71/81 Drives Supported— Single or Dual 

ONLY S34.95 



Kracker Jax Revealed I & II 

Dur knowledge ol protection schemes has made us 
lamous Now tind out how we do what we do best. Our 
books are your key to REAL knowledge OTHERS ONLY 
GIVE SURFACE INFO— we dig deep— much deeper We 
can show you exactly how today's copy protection 
prevents you from backing up your software. 



Revealed Book I with Reset Button 
$23.50 

Revealed II with Hesmon Cartridge 
$23.50 



I FLASH! Kracker Jax 
/ Earns a 5 Star Rating 
In INFO'S May-June '88 Issue 

Kracker Jax is Ihe powerful parameter-based copying 
system lhat has laken me country ay stomal What IS a 
parameter? It's a custom ptogram lhat allows your 1541 
or 1 571 disk drive lo strip ALL copy protection tram your 
expensive sollware. leaving you with UNPROTECTED, 
TOTALLY BROKEN BACKUPS thai can even be copied 
wiln a simple last copier" 

We declare Kracker Jax to be the besl sysiem ol its 
kind on the market loday! A bold claim' Maybe 

But don t lake our word lor it— d you wanl Ihe REAL 
Story on how good Kracker Jax is. |ust ask one of out 
customers. Don't wotry. You won'l have any problem 
finding one, 

Vols 1-2-3-4 Only 59.95 ea. 
Vols 5-6-7 Still Only S19.95 ea. 



Hacker's Utility Kit 
Stale ol Ihe art tools lor me compuiensi ready to lake 
control ot his software library 1 

• Whole disk scanners 

• GCR Edilor 

• Fasi Data/Nibble copiers 

• File tracer 

■ Byte Paltern Finder 

Much, Much More— $19.95 



Sysres " Enhanced 

Trie best— and we mean Best Basic enhancement system 
(01 Ihe C-64. 

• Adds over 25 maior commands to Basic 

• Entended Super DOS -Wedge 

• Scrolling ih rough Basic 

• Renumber, Trace, Search, and many other teaiures too 
numerous to men I ion 

• 1541/71 last loader included 

• M/L monitor Irom Basic 

• Transferable to 1581 Disk 

ONLY $39.95 
The best money you'll ever 
spend on your Commodore! 
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SOppoM 

INTERNATIONAL 

Hinder Service No. 187 



ORKBINO is wipe: wo acceol money orders, arnfw) chocks, personal ehKk! orly on prior <pprDV41. VISA. 
MC. Discover and COD hease add « t» snipping and Handling per no*. H.OO aowJOral tor COD orders 
Oders outs** of Now AmereaoWM cat lor shopng erwoti Detectm *ra wa » replaced it no cage 
In tuck oners art processed wehr U hrs Raws re not accepted nfflcci autcrtaean * Wjjtmgtr 

Roioats pkase add 7.5*. sacs au Srtnare orders «w SIM.OO Mil be shipped UPS !nd Day As a! no 

addflonal ctwge-U S. i% stales only. All paces si^ect lo etiange. 



Prccrjm Submissions Inviltd 

re inlo? Call or urnii for our Irie catalog. 



Mail youi order to: Software Support In! 

?700 fit Andresen Road I Vancouver WA 98651 



Or call out null Irirt- otder lino at 
l-BTO 356 1179, 9£tm-5f>m Pacific timo 
Mo 1 1 tl , i y Fr i i;H ,'i y . 

AftQr I k mini orders ficcepted at 
12061 695964B 1 d:iyr. 41 wacl<. 
Tcchnicjil suppof t av;iil<ible. Call 
(2061 69ft 9649. S^n.-'^inn Pacific litnc, 
Monday- Fri*I.ty. 



DEALERS - WE HAVE THE SUPPORT YOU'RE LOOKING FOR! 
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e have several longer, possibly more sig- 
nificant features in this month's issue that 
we could begin this column by talking 
about- but to us, this month's biggest news 
is the return of Buck Childress with his first lull-length pro- 
gram in six months. We join Buck in thanking the many 
readers who've written to ask about his progress. Happily, 
the eye ailment that sidelined our most prolific program- 
mer is all but licked, and Buck's output should rise stead- 
ily in the months to come. (As for Buck's program, Vari- 
Scan, it safeguards C-64 and C-128 programmers from re- 
using variable names and crashing works in progress. Turn 
to page 30.) 

After good news like that, we hope you won't find our 
description of the rest of the July Ahoy! too antklimactic: 

• As Dale Rupert points out, past Rupert Reports have 
involved connecting your computer to photo-cells, LED's, 
potentiometers, and relays. This month Dale helps you make 
the TJiermal Connection, and turn your 64 or 128 into a 
digital thermometer. What's next: a Commodore-driven va- 
cuum cleaner? Satellite dish? Roller coaster? Only time will 
tell. (Turn to page 32.) 

• Wirulow Dressing means curtains for those drab displays 
called up by the C-128's WINDOW command. Richard Cur- 



******** 



********* 




The money-saving subscription rates for Ahoy! magazine and the Ahoy! 
program disk are now even lower! 

If you subscribe to the Ahoy! Disk Magazine— magazine and disk pack- 
aged together -you'll receive the two at substantial savings over the indi- 
vidual subscription prices! 



SINGLE 

ISSUE PRICE 

(12 ISSUES) 

Magazine: S 35,40 

Disk: S107.4O 

TOTAL: 



SEPARATE 

SUBSCRIPTION 

PRICE (12 ISSUES) 

Magazine: S 23.00 

Disk: $ 79.95 



AH*** 
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$142.80 TOTAL: 



$102.95 



Use the postpaid card bound between pages 50 and 51 of this magazine 
to subscribe. (Canadian and foreign prices are higher.) 

The Ahoy! Disk Magazine is also available at Waldenbooks and B. Dal- 
ton's bookstores, as well as other fine software outlets. 

**********************J 



cio's quartet of routines let you print attractive boxes and 
headings, manipulate text, and more. (Turn to page 37.) 

• Adventure game fans registered one complaint about 
Vault of Terror (Oct. '86) and Crypt of Fear (Feb. '88)- 
their fingers were trembling so hard that they couldn't type 
the commands. So Cleve Blakemorc designed Tomb of Hor- 
ror, the last entry in his 3-D trilogy, to work entirely via 
pulldown menus. If you find yourself shaking so much that 
you can't wiggle a joystick, you're on your own! (Turn to 
page 48.) 

• Mindful that some readers don't like typing in listings 
of 8+ pages in length, Cleve offers two games that can easily 
be entered in a single sitting. Guerilla lets you go bananas 
gunning down terrorists who shoot at you from the ruins 
of bombed-out buildings. (Turn to page 16.) And Dinar Bug- 
gy dispatches you on an equally patriotic mission -to re- 
capture the stolen artifact of the Apollo space program and 
drive it across treacherous terrain to safety. (Turn to page 15.) 

• Once you've played all three of the above and asked 
the inevitable question- How does Cleve Blakemore do it?" 
-refer to Programming Your Own Text Games, in which 
Cleve continues to reveal his secrets. (Turn to page 13.) 

• Once again, Arnie Katz and the undersigned have been 
chosen (along with Betsy Staples of Atari Explorer) to select 

the programs for inclusion in this year's 
CES Software Showcase, We're proud 
to feature game reviews by Arnie and 
his partners, Bill Kunkel and Joyce 
Worley, in every issue. This month's 
Entertainment Software Section covers 
Stealth Mission, Speed Buggy, ttbod- 
en Ships & Iron Men, and Plasmatron. 
(Turn to page 20.) 

• If you've been putting off looking 
into our COMAL Column, you're al- 
most out of time. Richard Herring pre- 
sents the penultimate installment in this 
issue. (Turn to page 45.) 

In case anyone is still confused by 
our division into Ahoy! and Ahoyl's Am- 
igaUser, remember— the next Ahoy! for 
the C-64 and C-128 will be theSep- 
tember issue, on sale August 2. On the 
stands next month will be the second 
issue of Ahoyl's Amiga User— cover- 
dated August, and on sale July 5. And 
remember, if you're upgrading to the 
Amiga and want to switch your Ahoy! 
subscription to Ahoyl's AmigaUser, you 
can -but please call 815-734-4151 or 
write Ahoy!, P.O. Box #341, Ml. Mor- 
ris, IL 61054. Do not call us at our New 
York number with subscription prob- 
lems -we can't help you from here. If 
you have any /ton-subscription ques- 
tions, we'd love to help you. Call or 
write anytime. —David Allikas 
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UTILITIES 



THE SUPER CHIPS 
Custom Operating System for the C1 28 

Three 16K ROW chips that add several powerful features to 
Basic 7.0 including FIND, CHANGE...THIS...TO...THAT, TYPE, 
UNNEW, COMBINE, MERGE, START, FILE, EDITOR and more! 
Simultaneous split screen directories of devices 8 & 9. Compatible 
with 1541/1571/1581 and virtually all software and peripherals. 

Only s 49 9S ! 

Super Chips, Cuslom Operating System for the C128D - Two 
32K ROM chips - Only s 49 95 ! 

Super Chip, Custom Operating System fortheC64 ■ One 16K 
ROM chip- Only *29 9S ! 

Super Chip, Custom Operating System tor the 64 mode of the 
C128-Only s 29 9S ! 

SUPER AIDE 

All-purpose utility program lor the C64 provides: 



• Bi-directional scrolling 

• Auto Line Deletion 

• Trace (unction 

• Disassembler 

• Lo-Res Screen Dump 

• Number conversion 
(10. hex, binary) 

• Append files 

• Format — short 
new/complete new 

• Menu-driven 

• Change THIS TO THAT - 
specified string and replace 

• And much, much more! 
Super Aide, the complete programmer's tool kit. Only so Q QCI 



• Auto Line Numbering 

• Renumber 
« ML Monitor 

• List all variables to screen 

• Hi-Res Screen Dump 

• Restore newed Basic 
program 

• Change Device number 

• Packed Line Editor 

• Determine file load 
address 

search (or all instances of 
with second specified string 



GAMES 



EYE OF THE INCA 

Four text adventures on one disk for the C64 and Apple II series 
computers. Eye of the Inca. Shipwrecked. Son of Ali Baba and Perils 
of Darkest Africa. Four perilous adventures for only s 1 9 95 ! 

REVENGE OF THE MOON GODDESS 

Four text adventures on one disk for the C64 and Apple II series 
computers. Revenge of the Moon Goddess. Frankenstein's 
Legacy, Night of the Walking Dead and The Sea Phantom. Four 
terrifying adventures for only *1 9 9S ! 

SEX VIXENS FROM SPACE 

Three text adventures for the C64 and Apple II series for 
MATURE ADULTS ONLY. Sex Vixens from Space, Bite of the 
Sorority Vampires and Hatchet Honeymoon. Three sizzling adult 

adventures for only *29 BS ! 



$3495| 



"... excellent, efficient program that can help you save both 
money and downtime, ' ' 

1541:1571 Computers Gazette 

D&i VE AHSNmcNT Doc., J 987 

1541/1571 Drive Alignment reports the alignment condition of the disk 
drive as you perform adjustments. On screen help is available while the 
program is running. Includes features (or speed adjustment. Complete 
instruction manual on aligning both 1541 and 1571 drives. Even includes 
instructions on how to load alignment program when nothing else will 
load! Works on the C64. SXS4, C1 2B in either 64 or 128 mode, 1541, 1571 
in either 1541 or 1571 mode! Autobootstoall modes. Second drive fully 
supported. Program disk, calibration disk and instruction manual only 

[ Jj 1 J Super 81 Utilities is a complete utilities package (or the 
^____-~-<, 1581 disk drive and C12B computer Among the many 
'"/liti*-" Super 81 Utilities features are: 

• Copy whole disks from 1541 or 1571 format to 15B1 partitions 

• Copy 1541 or 1571 files to 1581 disks 

• Backup 1581 disks or files with 1 or 2 1581s 

• Supplied on both 3'/ 2 " and 5 Va " diskettes so that it will load on either 
the 1571 or 15B1 drive. 

• Perform numerous DOS functions such as rename a disk, rename a 
file, scratch or unscratch files, lock or unlock dies, create auto-boot 
and much more! 

Super 81 Utilities uses an option window to display all choices available 
atanygiven lime. A full featured disk utilities system forthe 1581 lor only 
Super 81 Utilities is now available for the C64! 

$3995! 

RAMDOS is a complete RAM based 
"Disk'' Operating System for the 
Commodore 1700 and 1750 RAM 

oxpansion modules which turns all or r \ ^ RAM-DISK 
part of the expansion memory into a lightning fasl RAM-DISK RAMDOS 
behaves similar to a much (aster 1541 or 1571 floppy disk except thai 
the data is held in expansion RAM and not on disk. Under RAMDOS, 
a 50K program can be loaded in Vi second. Programs and filescan be 
transferred to and from disk with a single command. RAMDOS is 
available for only $OQ95I, 



SUPER BIKE 

Action-packed, fun-filled motor cycle arcade game 
lor the CS4. Race the clock in Molocross, Enduro, 
Supercrossor Trials. Fly through the air on spectacular 
jumps. Bounce over woop-de-doos. 
Avoid logs, trees, water holes, brick walls, other bikers, etc. as you vie 
(or the gold cup. 
Thrilling Super Bike action for only $* £95) 

GALACTIC FRONTIER 

Exciting space exploration game for the C64. Search for lile forms 
among the 200 billion stars in our galaxy. Scientifically accurate. 
Awesome graphics! For the serious student of astronomy or the casual 
explorer who wants to boldly go where no man has gone before. 





Only $29951 



Order with check, money order, VISA, MasterCard. COD. 
Free shipping & handling on US, Canadian, APO.FPO 
orders, COD & Foreign orders add $4.00 



Hl 



Order From: Free Spirit Software, Inc. 

905 W. Hillgrove, Suite 6 

LaG range, IL 60525 

(312) 352-7323 

1-800-552-6777 

For Technical Assistance call: (312)352-7335 



In England contact Financial Systems Software 0905-61 1 -463 



Reader Service No, 155 
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GAMES FROM COSMI, DATASOFl FA, MICROILLUSIONS • CI 28 BBS 
PROGRAM • DISK DRIVE ACCESSORY • CP/M NEWS • MUSIC SOFTWARE 
• 1581 UTILITIES FOR C-64 • ONLINE EXPORTER SERVICES • SEX 
EDUCATION • DESKTOP PROGRAM • TEACHERS' CONTEST • Al TYPING TUTOR 



EXPORTER SERVICES 

A new online system offered through 
CompuServe allows US firms to iden- 
tify export opportunities and speed up 
the processing of export licenses. Un- 
der the terms of a contract with the US 
Dcpt. of Commerce (DOC), exporters 
can submit their license applications to 
DOC electronically. A DOC licensing 
officer will process the application, 
send a response to the exporter elec- 
tronically, and follow up with a hard 
copy of the validated license. 

Also new to CompuServe is a data- 
base providing detailed information, 
updated daily, on worldwide trade op- 
portunities. Exporters can search the 
database by country, SIC code, post- 
ing date, and type of procurement. 

CompuServe, 614-457-8600 (see ad- 
dress list, page 12). 




LLINOIS SHOW 

The third annual Chicagoland Com- 
modore Computer Fest is scheduled for 
August 28 at the Exposition Center at 
the Kane County Fairgrounds in St. 
Charles, IL, National speakers and 64, 
128, and Amiga vendors will be fea- 
tured. Admission is $5.00. 

Computerfest, 312-897-5788 (a 



^rcss list, page_ 

LET ME TELL YOU 'BOUT... 

Why embarrass yourself by your lack 
of knowledge? Birds "N Bees lets your 
kids learn the tacts of life interactive- 
ly. The program, designed by a team 
of psychologists and consultants, in- 
cludes treatment of reproduction and 
child development, plus a special sec- 
tion on protecting children from stran- 
gers. The program is designed to let 
children of any age and either gender 
receive information specific to their 
needs. Price is $49.95 for the C-64, 
$59.95 for the Amiga. 

8 AHOY! 



TH E P RM RAW FOB TEACHING KXITH THE FACTS OF UFI 
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Sex education for kids of all ages. 
READER SERVICE NO. 174 

IntraCorp, Inc., 305-252-9040 (see 
address list, page 12). 

SUPER 81 FOR THE 64 

A C-64 adaptation of Super HI Util- 
ities joins the C-128 version introduced 
earlier by Free Spirit. Super 81/64 will 
copy whole disks or files from 1541/ 
71 drives to the 1581. The user can back 
up disks or files with one or two 154I's, 
1571*8, or 1581's, or any combination 
thereof. Also included are a full -fea- 
tured sector editor and utilities for par- 
titioning, scratch and unscratch, lock 
and unlock, rename, format, and di- 
rect DOS commands. 

The program is supplied on both 
5 W and 3 W 1 disks, and boots on either 
device 8 or 9. Price is $39.95; ship- 
ping is free. 

Free Spirit Software. Inc., 312-352- 
7323 (see address list, page 12). 

PAPERCLIP PUBLISHER 

PaperClip Publisher ($49.95) offers 
all the text formatting, layout, and de- 



sign capabilities needed for creating 
multiple-column page layouts for news- 
letters, flyers, price lists, menus, greet- 
ing cards, and the like. Documents up 
to 50 pages in length are supported. 
Other special features are the ability 
to temporarily hold and work on text 
or graphics outside a given document, 
and a "refreshing" feature that automa- 
tically updates any altered section. 

Electronic Arts, 415-571-7171 (see ad- 
dress list, page 12). 

MUSIC SOFTWARE 

Low-cost music programs for the pro 
or semi-pro: 

Passport Sequence Editor (S14.95) 
allows step-editing of the MIDI 4+ and 
8+ sequence files. 

Studio One Editor ($14.95) works 
with Syntech's Studio One program. 

DX21/27/100 Librarian ($14.95) stores 
banks and individual voices from Ya- 
maha's 4-operator FM synthesizers. 

Generic Librarian (S19.95), a 32K 
system-exclusive recorder, works with 
any instrument capable of bulk Sys-Ex 
dumps. 

Sound Ware (see address list, page 
12). 

CP/M STARTER SET 

The PDS CP/M Starrer Set ($29.95) 
is comprised of four disks of utilities 
and applications for the C-128, plus 
printed documentation explaining boot- 
ing up, transient and resident com- 
mands, and creating and dissolving li- 
brary files. 

Public Domain Solutions, 813-378- 
2394 (see address list, page 12). 

DRIVE ENHANCEMENT 

Microteq's Drive Box ($29.95) per- 
mits hardware configuration of the 
1541, the 1571, and the C-128D's built- 
in drive. The box allows for setting the 
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HE SUPER-FAST PARALLEL DISK OPERATING SYSTEM 
FOR THE COMMODORE 64 AND 1541 DISK DRIVE! 



•Many useful, timesaving features (DOS 
Wedge, screen dump, resident monitor). 

•No loss of compatibility. 

•Far too many features to list in this ad . . . and 
perhaps in this magazine! 
(Call or write to get all the details!) 



•All disk access is handled at super-fast parallel 

speed! (LOAD, SAVE, directory, SEQ & REL 

files, scratch, validate, format). 
•Designed to support multiple drive systems. 
•Parallel Centronics printer support with file 

spooling capability. 

. . . and if you want the ultimate, get RapiDOS Professional! 

•Gives even faster disk access! • Provides 40 track extension (749 blocks free!) 

•Uses 8k RAM track buffering and hardware *Adds 20 new disk commands (i.e., lock files, 

GCR conversion! change disk name). 

Here's what people are saying about RapiDOS: 

Mike J. Henry {Basement Boys Software) - "It's amazing how incredibly fast it is, I'm impressed!" 

Mitch S. (Eaglesoft Inc.) - "Very fast, very reliable, and very compatible. I love it!" 

J.F. Jones (ADP) - "Superbases' speed is increased greatly, and it's now a dream to use!" 



Function 


Normal DOS 


RapiDOS 


RapiDOS Pro 


Your System 


Load 202 blocks 


128 sec. 


15 sec. 


3 sec. 




Save 202 blocks 


1 96 sec. 


98 sec. 


8 sec. 




Format 35 tracks 


90 sec. 


24 sec. 


18 sec. 





Compare these speeds with your current system and see why RapiDOS puts the C-64 into a different league! 

RapiDOS requires a socketed kernal ROM U4, and is available in versions for the 64c, 128 in 64 mode, 

and 1541c (please specify when ordering). RapiDOS is easily upgradeable to the Professional Version. 

RapiDOS Professional drive controller is (c) '87 mts data GbR, the creators of the best European parallel systems. 

At these affordable prices no C-64 owner should be without RapiDOS! 
RapiDOS $49.95 RapiDOS Professional $99.95 



MASS DUPLICATOR 1541 

• For the C64/128 with a single 
1541 disk drive. 

•15 second, 4 pass backup for 

standard disks! 
•25 second full GCR Super Nibbler, 

the most powerful yet! 

• 9 second disk format! 
•Fast loader! 

•Quick installation. $32.95 

•Can be upgraded to RapiDOS 

MASS DUPLICATOR MSD 

• A must tor any MSD SD-2 owner. 

• 15 second standard disk backup! 
•18 second full GCR Quick Nibbler! 
•9 second disk format! $25.95 

MSD AUTO COPY ROM 

•Adds new Fast Backup 

commands! 
•Turns the MSD SD-2 into a 

dedicated copying drive 

(no computer needed). $29.95 



C-64 BURST- ROM 

•Gives the 64 'Burst Mode' when 
used with a 1571 or 1581 
disk drive! 

• Loads 100 blocks in 6 seconds 
on a 1571, 4 seconds on a 1581! 

•Fast directory, SEQ, and REL 
file access! 

• Built in DOS wedge! 
•Simple installation. 

(Kernal ROM U4 must 

be socketed) $32.95 

C-128 BURST- ROM 

• Lets the 128 run at 'Burst' speed 
when in 64 mode! 

•Provides the same leatures as 
the C-64 Burst-ROM! » 38 9g 



STILL TO COME 

•MSD SD-1 Fast Copier! 
•1571 Mass Duplicator! 
•1581 Utility Pack! 



TURBO 64 

•Speed-up cartridge for the C-64, 

just plug it in! 
•Adjust the clock rate from 100 khz 

(1/10 normal)to4rnhz(4x normal)! 

• Uses 8/16 bit 65816 microproc- 
essor (same as the Apple ][gs... 
but twice as fast)! 

• Spread sheets, BASIC, flight 
sims, graphics, and now GEOS... 
all are accelerated! «189 95 
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CHIP LEVEL DESIGNS 

^^— Cash. Check, ^^^ m 

^^ M.C.orVisa '^^ 

$3.00 shipping on all orders 

COD s add S300 

P.O. BOX 603 

ASTORIA. OR 97103-0603 

(503) 861-1622 

Dealer, Distributor. 5 Group Pricing Available 



device number from 8-11, as well as for 
writing to the reverse side of the disk 
without cutting an extra notch. Six sol- 
der connections are required in order 
to install the 3% x 2 x 1" unit; or, Mi- 
croteq will install it in your drive for 
$10 plus shipping {you must iasurc your 
drive). 

Drive Box is available through Soft- 
ware Support and Free Spirit. 

Microteq Systems, 701-232-4033 
(sec address list, page 12). 

KETEK SUPPORT 

Computer accessories from Ketek, 
makers of the Command Center line 
of system enclosures for the 64, 64C, 
and 128: 

The Sound Trap (S49.95) encloses 
almost any 80 column printer with 
sound-absorbing loam and wood to re- 
duce noise by up to 90%. Included are 
an acrylic lid and a slide-out shelf for 
catching printout. 

The Remote Power Controller 
($89.00) provides outlets for up to five 




devices, each offering 3-way protection 
against surges and spikes. The base unit 
can mount behind or under your desk, 
while the 3% x 534 x IW controller 
is kepi close at hand. 
Data Director ($39.95) makes it pos- 



A Powerful Wordprocessor 

for the Commodore 128 s 

Selected 
Jf, for the 1987 




CES Software 

Showcase 

A ward. 



From the author of Fon'tmaster II comes Fontmaster 128, 

an enhanced version for the Commodore 128. This 
powerful word processor with its many different print 
styles (fonts), turns your dot matrix printer into a more 
effectual tool, Term papers, newsletters, and foreign 
languages are just a few of its many applications. 



0<M 



* Program disk with no protection - uses hardware key 

* Supplement disk includes foreign language fonts 

* 56 Fonts ready to use 

* Font editor/creator included 

* On screen Font preview 

* 80 column only $69.95 

* Supports more than 110 printers 

* Includes a 102,000 word Spell Checker 

Commodore 128 is a registered trademark of Commodore Business Machines, [nc 
M^l^Q Inc. 2804 Arnold Rd Sahna. Ks. 67401 (913) 827-0685 



Pete Rose 
Pennant Fe- 
ver incorpor- 
ates the strat- 
egies of the 
Reds star. 
You can hit, 
run, field, 
and presum- 
ably throw 
body blocks 
at opposing 
catchers. 
READER 
SERVICE 
NO. 175 



.sible for two 6-pin serial devices to 
share one 64, or for two 64's to share 
one serial device. The unit works with 
all Commodore-compatible drives, 
printers, and interfaces. 

The Tilt/Swivel Monitor Stand 
(S14.95) lets you turn your monitor to 
the desired angle, with cushioned pads 
to hold the monitor securely in place. 

Ketek, 319-338-7123 (see address list, 
page 12). 

GAMES 

Scheduled for C-64 release in No- 
vember, Pete Rose Pennant Fever lets 
you guide an expansion team through 
a 10-season, 24-team race for the pen- 
nant. Rather than looking down on the 
diamond from overhead, you experi- 
ence the action from the perspective of 
one of Charlie Hustle's teammates. You 
pilch, hit. run, field, throw, and steal 
as you would on a real diamond. Man- 
agerial strategies actually employed by 
Rose arc available. In addition, you can 
act as General Manager, drafting and 
acquiring computerized players while 
maintaining control of the club's finan- 
ces and player salaries. Is there a collu- 
sion option? Wait and see. 

Activision/Gamcstar, 415-960-0410 
(see address list, page 12). 

Two for the 64 from EA: 

Scheduled for laic summer release, 
Wasteland ($49.95) challenges players 
to survive in the post nuclear year of 
2087. As you and your band of Desert 
Rangers roam the southwestern United 
Slates, trying to help other survivors 
rebuild and live in peace, you'll en- 
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SAVE OVER 35% 
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Tank's-eye view of the WWII clash, 
READER SERVICE NO, 176 

counter a cast of hundreds, including 
mutant villains who endanger the pop- 
ulation. At certain points in the game, 
you'll be directed to the included Par- 
agraphs book which enhances the detail 
of the game and provides descriptive 
text. After the game is over, you may 
return to explore locations you were not 
able to the first time around. 

Patton VS Rommel (529.95), designed 
by Chris Crawford, lets the player be- 
come either General Blood and Guts 
or the Desert Fox on D-Day. Each 
commander has numerous infantry and 
armor divisions at his disposal, plus 
a historically and geographically accur- 
ate map of 150,000 locations. 10 dif- 
ferent kinds of tactical orders are pos- 
sible, and each division can have up 
to 32 different orders at a time. To give 
orders, the players just point at a divi- 
sion and an objective -the army does 
the rest. As the strategies come to life, 
players can watch the battles take place, 
with realistic sound effects. For the 
C-64. 

Electronic Arts, 415-571-7171 (see ad- 
dress list, page 12). 

Rommel stars as well in Tobmk 
($19.95), in which you command 10 
divisions of the Afrika Korps in an at- 
tempt to capture the key Libyan port 
city. Action can be controlled from tac- 
tical maps, or directly in land and sea 
battles. Players view the battle from the 
turret of a desert tank, with access to 



machine gun controls and mines. Air 
tactics include ground attacks, air-to- 
air skirmishes, and long-range bomb- 
ing. The C-64 simulation is designed 
by Datasofl and distributed by Elec- 
tronic Arts. 

Electronic Arts/Datasoft , 415-571- 
7171 (see address list, page 12). 

Under Fire! ($34.95) consists of nine 
WWII scenarios involving the US. 
Germany, and the Soviet Union, plus 
a construction set enabling the C-64 
gamer to create more. 

Avalon Hill, 301-254-9200 (see ad- 
dress list, page 12). 

Three C-64 racing games— Richard 
Petty's Talladega, Shirley Muldomwy's 
Top Fuel Challenge, and Grand Prix 
Motor Mania — have been combined 
into Cosmi's Motor Racing Trilogy 
($24.95). 

Cosmi, 714-240-8985 (see address 
list, page 12). 

Black Jack Academy will teach you 
to play the game, or help you brush up 
your skills. Online help explains all 
play options and coaches you along. 
Special ease-of-usc features include 
multiple play speeds, card counting op- 
tion, player card total option, money 
management guide, and preset multiple 
table rules from Las Vegas, Reno, and 
Atlantic City. For the 64 or Amiga; 
$39.95. 

Microlllusions, 818-360-3715 (see 
address list, page 12). 

Bridge Baron II ($39.95), an im- 
proved version, plays the complete 
game of bridge, allowing you to bid and 
play more than a billion different deals 
with your C-64 as both your partner 
and your opponents. New features in- 
clude two-person mode, rubber bridge 
scoring, automatic play mode, Baron's 
recommended bids and plays, the abili- 
ty to claim or concede tricks, simpli- 
fied card play, weak 2-bids, and the op- 
tion to save deals to disk. 

Great Game Products, 800-GAMES- 
4-U (see address list, page 12). 

MORE CP/JW 

Poseidon has published the spring 
*88 addendum to its catalog of CP/M 
software, priced at SI .75 plus a 45c 
SASE (if paying by check, it must be 
made out to Ralph Lees). New software 
prices are $16 for the first disk, 512 for 
the second, and $7 each for all subse- 
quent ones. 




PLUS 4 SOFTWARE 

Turn your home computer into a house- 
hold finance organizer, learning center, 
and entertainment center. The Plus 4 1 " 
Software Package contains three floppy 
diskettes compatable with the Com- 
modore- Plus 4'" computer. Due to 
special arrangements with the manu- 
facturer, you save 

Software Package Contains: Fun and 

Games disk with more than 20 imagi- 
native games for the whole family to 
enjoy, plus music and graphics selec- 
tions. The second disk is Utilities/ 
Finance. It can help you organize and 
maintain files, lists and information, The 
Finance section Is designed to help you 
organize your personal and home fin- 
ances and investments. The third disk is 
Education. A fun way lor students to learn 
more about math, language, geography, 
science, history and more. 
Compute the Savings! You don't need 
a computer to figure out this is an 
exceptional value... one that everyone in 
the family will enjoy. 

Mfr. List Price *30.00 



Liquidation 
Price/Set . . 



$19 



Hem H-3628-7235-294 
S/H: $4.rj0/set 



Credit card customers can order by 
phone, 24 hours a day, 7 days a week. 

Toll-Free: 1-80O-328-0609 



SEND TO: 

BSED Authorized Liquidator 

1405 Xonlum Lane N/ Minneapolis, MM 5S441 -4494 

Send Plus/4'" Software Set(») "em H-3628-7235-294 

at $1 9 per sol, pi us $4 per sot tori n su rod shippl ng, ho ndling. 
(Minnestoa residents ndd 6% salus lax. Sorry, no COD 
orders) 

□ My check or money order is enclosed (No delays in 

processing orders paid by check.) 

a B o EB a^ffl. a 



Accl No Exp . 

PLEASE PRINT CLEARLY 

Namfi ^ ^^~ 



PLEASE 
CHECK 



Address 

Cily 

ZIP 



-Apt #_ 



Sign Here 
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Near Letter Quality 
You don't have to buy a new 
printer if you need to improve the 
print quality of your correspon- 
dence. 
We have an easy-to-install kit (or you' 

EPSON FX-80/100 

incl. + series Call 

EPSON RX-80/100 

incl. + series .....Call 

EPSON MX series ..Call 

STAB Gemini 10X / 15X $52.50 

STAR Delta 10/ 15..... ....$52.50 

Checks or COD only. Florida residents 
add tax. 

Order information for STAR Gemini 
printers: 

The largest integrated circuit on the 
printed board is either a type D 7800 
or D 7801. Please submit that informa- 
tion with your order. 
The kit for the EPSON printers (Dots- 
Perfect) is a trade mark of Dressel- 
haus Computer Products. 

ESP Corporation 

PO Box 1248 

Holmes Beach, FL 34218 

Phone: (813) 778-5773 
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GET MORE 
PLEASURE 
FROM Tl IE 
MB LI- WITH 



^ LANDMARK 

The Computer Reference Bible 

Here's whaL LANDMARK will entbfa you in do: 

• SEARCH THROUGH THE BIBLE— llnd 

Phrtsos, wurds or semcriciss. 

• DEVELOP TOPICAL FILES—Copy from The 

Bible tcxi and search rcsulis ihtxi add your own 
comments and notes, 

• COMPILE YOt.'H PERSONAL BIBLE— Oat- 
ttnc texts In color. Add Notes and comments. 
Create your own supplementary Study Dies. 

*/ CREATE FILES— Then convert fjierrl for use 
with wo.-dproceisors like Paperclip and GEQS. 

• MAKE SUPPLEMENTARY STUDY FILES— 

jnci develop iraujUjiittn varialHins. 

!NEW LOW PRICE!! 
ONLY $129.95 

vl.2 for C64 or v2.0 Tor C12S/1571 



CALL OR WRFIE TODAY FOR A 

FREE BROCHURE, WHICH SHOWS 

HOW VALUABLE L/WDMARK CAN 

BE IN YOUR BIBLE STUDY 

P.A.V.Y. Software P.O. Box 1584 
Ball win, MO 63022 (314) 527-4505 

ASK Kaitir AT YOUR LOCAL COMPUTER DEAU1R! 



Poseidon Electronics, 212-777-9515 
(sec address list below). 

BBS FOR 128 

Dragonfire BBS 128 ($100) is de- 
signed to allow a novice to get a bulle- 
tin board up and running within 20 
minutes. It supports 300, 1200, and 
2400 baud modems, up to 100 public 
and 40 private message bases, full E- 
mail system, remote SYSOP capabili- 
ties, auto maintenance mode, security 
option, sell-maintaining system files, 
and more. Versions for the 64 and 
Amiga are forthcoming, as are termin- 
al programs for the 64 and 128. 

YbdaHead Software, 609-596-1772 
(see address list below). 

SWEEPSTAKES 

Computer Learning Month has 
launched a School Certification Pro- 
gram and Sweepstakes, with a first 
prize of a computer and software and 
30 second prizes. To become eligible, 
teachers in grades K-12 must use three 
software programs they have not tried 



before between August 1 and October 
31. Further details are available from 
CLM, an official project of the Soft- 
ware Publishers Association. 

Computer Learning Month (see ad- 
dress list below). 

PAINT PROGRAM 

The Masterpiece graphics package 
(S29.95) lets the C-64 artist move, 
copy, scale, rotate, twist . and fold the 
onscreen artwork. Other features in- 
clude picture compression for saving 
memory, and the ability to load pic- 
tures from BASIC. 

Scorpion, 201-663-0202 (see address 
list below). 

GOOD NEWS 

P.A.V.Y. has lowered the price of 
Ixmihnark, Vie Computer Reference 
Bible from $164.95 to $129,95. If you're 
reading these words before June 1 (as 
only subscribers are likely to be), you 
may still be able to get in on P.A.V.Y.'s 
limited time special price of $119.95 
Continued on page HI 
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ActivLsion/Gamestar 




Mieroteq Systems 


2350 Bay shore Parkway 


Companies 


1430 9th Avenue South 


Mountain View, CA 9404.1 


Mentioned 


Fargo. ND 58103 


Phone: 415-960-0410 


in 


Phone: 701-232-4033 


Avalou Hill 


P.A.V.Y, Software 


4517 Harford Road 


Scuttlebutt 


P.O. Box 1584 


Baltimore, MD 21214 




Ballwin, MO 63022 


Phone: 301-254-9200 


Contact 


Phone: 314-527-4505 


CompuServe 


manufacturers 


Poseidon Electronics 


5000 Arlington Centre 


directly for 


103 Waverly Place 


Blvd./P.O. Box 20212 


additional 


New York, NY 10011 


Columbus. OH 43220 


Phone: 212-777-9515 


Phone: 614-457-8600 


information. 


Public Domain Solutions 


Computer learning t 


ireat (finite Products 


P.O. Box 832 


Month c 


804 Chaliin Drive 


Tallevast. FL 34270 


P.O. Box 60007 I 


Sethesda, MD 20817 


Phone: 813-378-2394 


Palo Alto, CA 94306-6007 f 


'hone: 800-GAMES-4- 


Scorpion 


Computerfest I 


ntraCorp, Inc. 


19 Harbor Drive 


P.O. Box 28 1 


4160 S.W. 139th Court 


Lake Hopalcong, NJ 


North Aurora, IL 60542 H 


rtiami. FL 33186 


07849 


Phone: 312-897-5788 1 


'hone: 305-252-9040 


Phone: 201-663-0202 


Cosmi ] 


Cetek 


The Software Toolworks 


415 North Figueroa Street F 


.0. Box 203 


One Toolworks Plaza 


Wilmington, CA 90744 C 


)akdalc. 1A 52319 


13557 Ventura Blvd. 


Phone: 714-240-8985 F 


hone: 319-338-7123 


Sherman Oaks, CA 91423 


Electronic Arts fl 


licrollliisioas 


Phone: 818-907-6789 


1820 Gateway Drive 1 


7408 Chatsworih Strce 


SonndWare 


San Mateo, CA 94404 C 


Jranada Hills, CA 9134 


4 P.O. Box 1913 


Phone: 415-571-7171 F 


hone: 818-360-3715 


Nederland. TX 77627 


Free Spirit Soft Mare S 


licroProse 


Yo da Head Software 


905 W. Hillgrove. Suite 6 1 


80 Lake front Drive 


P.O. Box 177 


LaGrange, IL 60525 F 


lunt Valley, MD 21030 


Marlton. NJ 08053 


Phonc: 312-352-7323 F 


hone: 301-771-1151 


Phone: 609-596-1772 
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Ingenuity lies not in further complicating definitions 
and concepts, but in reducing the number of contra- 
dictions and terms to the fewest possible true sets. 
Any given system design must begin with the sum 
of its parts, and then define these parts. 

This is the essential theory behind "black box" system 
design, or modular programming. We begin by describing 
what we want the system to do, then breaking this idea down 
into the necessary steps to accomplish it. Whether you are 
pursuing a personal goal or creating a computer program, 
you will find that this approach is always the most effective. 

Last month wc published a short text adventure called 
Lost Dutchman's Mine. In this installment we will examine 
this program in detail and demonstrate how a series of mod- 
ules (or subroutines) can be tied together into one cohesive 
system that is greater than the sum of its parts. None of 
the routines by themselves would constitute a game -but 
working in tandem, they create an interactive adventure. 

If we wanted to describe the player's purpose in Lost 
Dutchman's Mine in one sentence, we could say: 

"To move around within a network of locations, collect 
various objects, return them to a specific location, and win 
the game." 

This is the simplest way to define the program's operation. 
In last month's column, I advised designing your adventure 
on three separate pieces of paper before touching the key- 
board. Page one of my scenario for Lost Dutchman's Mine 
read like this: 

"The object of the game is to wander around within a 
series of caves, collecting up three treasures as you go. When 
you have all three objects, you return them to a specific 
base location, drop them, and win the game." 

On page two I listed the obstacles I wanted to hamper 
the player's efforts: 

"1. A timber wolf guards the entrance to a burial mound 
where one of the treasures is buried. The player must find 
the gun and bullets to kill the wolf. 

"2. A secret word is required to pass from the base loca- 
tion to the caverns. (Kind of like PLUGH in Colossal Caves.) 
The secret word is written inside a matchbook cover. 



"3. A whistling spirit guards the entrance to the caverns. 
The player must blow on an empty 7-UP bottle to scare 
the spirit away. 

"4. The burial mound is submerged under water. The play- 
er must find and open a reservoir lock through which the 
mound room can be drained. 

"5. A shovel is needed to dig up the third treasure (Dutch- 
man's nugget). 

"6. The player must also light a torch, drop enough equip- 
ment to fit through a narrow crack, and escape from the 
room after he opens the reservoir lock." 

You may have noticed that a lot of these ideas are taken 
from other adventure games, many of them classic puzzles. 
I wanted them to be familiar enough thai the game could 
be solved without too much trouble. I could just as easily 
have made the game much harder. 

On the third and final page, I drew a map detailing all 
nine locations in the game, complete with references to the 
objects that would be found there, and the various puzzles 
specific to those spots. 

Using the modular approach. 1 broke the program down 
into seven discrete boxes. 

1. Initialize arrays and variables 

2. Read in data 

3. Get command 

4. Find verb in command 

5. Find noun in command (if any) 

6. GOSUB to appropriate subroutine pertaining to verb 

7. Data lines 

Modules 3, 4, and 5 could all be considered part of the 
parser, the routine that gets and analyzes player input. I 
define them separately here to make it clear what goes on 
inside the routine. 

The first thing I typed in, as always, were lines 1530- 
1610. These lines contain descriptions of the nine locations 
in the game. 1 immediately followed with comments to ac- 
company each, in lines 1630-1670. These comments are spe- 
cific observations in each location. For example, the gas 
station has a "metal plaque above a glass shelf." 

Then, using the third page of my notes (the map) as a 
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guide, I typed in the data for an array of nine dimensions, 
each dimension having six elements. This dimension will 
be known as D(9,6). The six elements consist of the direc- 
tions North, South, East, West, Up, and Down. This is 
a numerical array, and the number in each element indi- 
cates the location to which that direction connects. Any non- 
zero number is a pathway; otherwise there is no exit in that 
direction. I did not type in directions for the gas station, 
because it is only accessible by use of the forementioned 
"magic word." 

In the fashion of any sensible hacker, I jumped to lines 
120 through 210 and designed a data loader. Once I made 
sure that the arrays were dimensioned properly in line 120, 
I read them in a couple of times in lines 190 and 210 just 
to make sure every tiling was going smoothly before I contin- 
ued. This type-n-run approach is the hacking method, and 
it works. Trust me. 

Now for the tough part. I had to figure out all the verbs 
and nouns that would be needed for the parser's vocabu- 
lary. In lines 1800-1850 I tried to give the program a rea- 
sonable dictionary of words to work with for player input. 
An advanced parser would recognize far, far more than this 
simple collection of words. 

Again, I skipped back to the beginning and made sure 
these strings loaded in correctly before going on. 

Lines 1870 through 1900 arc detailed descriptions of the 
objects that can be carried in die player's inventory. Although 
an object might be referenced by the parser as "diamo," it 
will be described on the screen as a "glowing diamond." 
This gives character and atmosphere to the adventure. 

Line 1920 is a list of numbers that tells the program where 
to place objects initially. The first number indicates the lo- 
cation, the second is the object number itself in the inven- 
tory. The - I, -1 at the end of the tine signals the end 
of the data. 

Lines 1940-1970 are end of game messages, for when the 
player is killed or is victorious. If the player is killed, these 
lines help tell him where he made his mistake. 

With this, I completed the data lines, the major stumb- 
ling block of any adventure game. Although I made many 
changes afterwards and altered these lines considerably be- 
fore finishing, diese lines gave me something to work with, 
the meat of the text adventure. The remaining program por- 
tions manipulate die data loaded in from here in many ways, 
but it is in these lines that the game gets its substance. 

Important variables to be defined are CL (Current Loca- 
tion) and the arrays 0(9,8) and 1(8). The former is an array 
that tells what objects are in what rooms, and the latter is 
the player's inventory array. 1(8) refers directly to the eight 
objects listed in line 1840, the objects in the game which 
can be carried. Any non-zero number in element 1(1), for 
example, would indicate that the player is carrying the torch. 
However, a -1 would mean the torch is burning, while a 
1 would mean it is out. I also set up meaningful flag names 
in line 150. These flags indicate the status of certain items. 

In lines 340-540. I fleshed out the parser routines. First 
the directions, then once the program is recognizing them 
correctly and responding, I introduce the other verbs. It 
is better to make sure that all the directions are function- 
ing correctly first before continuing, because a flaw thai 
shows up later might take a lot of work to repair. Make 
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certain that the directions in the game correspond identi- 
cally to your map. It is very common to make errors here. 
I often get East and West mixed up while typing them in. 
Line 340 gets the player's input. If he enters nothing, the 
program checks again. Line 370 checks for a single charac- 
ter input (either a direction or the letter "i" for inventory) 
and acts accordingly. Since the six compass directions match 
up with the six single character commands perfectly, I just 
reduced any of these terms to a number between 1 and 6, 
subtracting 7 if necessary. I can then use this number to 
reference the corresponding element in direction array 
D(9,6). Once a match is found for the verb, the number 
is placed in the variable V. 

The verb is the important part. We use the verb to jump 
to the subroutine that designates the action, so we must have 
a verb. The noun, on the other hand, is not always neces- 
sary for many actions, and so our parser only looks for 
it. If it finds one, it places the number of the noun into 
the variable N before branching off to our routine. The sub- 
routine can then check this variable to see if the player is 
referencing the correct object. For example, if the player 
gives the command to dig, we check the variable N to de- 
termine whether or not he wants to dig in any particular 
spot, as in DIG MOUND. If N=0, we simply print a stan- 
dardized message that reads "YOU DIG FOR A WHILE 
BUT YOU DONT FIND ANYTHING." 

After the parser has both these variables, V and N, as- 
signed with values, it drops through to lines 570-580, the 
branches. These lines will steer the program flow into the 
correct verb actions that alter program variables and the 
game environment. 

These lines run from 700-1520, accomplishing every pos- 
sible action that the player is permitted to take in our ad- 
venture. If you study them carefully, the variables are self- 
explanatory and it should be readily apparent that they act 
on values to change location inventory, specific flags (mound 
full-empty, wolf dead-alive, etc.), and print messages for 
the player's benefit. 

After program flow returns from these subroutines, the 
main parser program executes a series of critical checks 
in lines 600-690. These flags count elapsed time in the cur- 
rent location and check on the player's status relative to cer- 
tain non-player characters and events. For example, if the 
player is in room 4 for more than four turns with the spirit, 
he is going to get it good. The same goes for being in a 
river full of water too long or beside a hungry wolf. 

The check for a win is in line 600. This line checLs if 
a variable called WINGAME has been set yet by the drop 
subroutine. If the player drops all three treasures in loca- 
tion zero, this flag will be set upon returning from the rou- 
tine, telling the main program that the player has succeeded. 
With as little work as alt this, an adventure game was 
born. We have a full-fledged story, with a plot, characters, 
and suspense. Next month, we'll go over the specifics of 
the way the parser functions, and methods we could use 
to upgrade the routine so that it could recognize complete 
sentences. 

Until then, remember- stop wrestling with the program 
as a whole and break it down into modules. You cannot 
move mountains unless you do it one bucket of dirt at a 
time! D 




In the year 2009 A.D. it was discovered that a colony 
of extraterrestrials had established itself on the dark 
side of the moon. A Russian installation was attacked 
and totally obliterated in 2011 when it attempted to 
approach the alien base to make contact. Following that 
incident, a United Nations security resolution placed the 
aliens' location off limits to all international teams until 
further notice, for fear of antagonizing the otherworldly 
visitors. 

You are a government agent assigned to a secret mission 
of the highest priority: to recover one of the greatest of all 
historical artifacts, the Apollo lunar buggy. If you can drive 
the vehicle over the treacherous lunar plain and past the 
alien forces, the buggy can be returned to the Smithsonian 
Museum for posterity. It seems like an impossible gamble, 



but you know it will be worth it if you can recover this 
national treasure. 



Lunar Baggy is a jump-and-shoot game similar to Moon 
Buggy, an arcade favorite. It requires a joystick in Port 2. 
Press the fire button to escape from the title screen. 

This game for the C-128 features a background that 
smooth scrolls past at two different speeds to give the illu- 
sion of depth. You've probably seen it before in many ar- 
cade games. Lunar mountains pass in front of one another 
as they move, with the smaller and slower moving terrain 
in the rear of the display. 

To jump, you push up on the joystick. Press the button 
and push either up or right to fire a laser torpedo. You can 
jump and fire at the same time if necessary. 

The alien ships are a mere nuisance at first, but they can 
become a real threat later on in the game as they begin to 
move erratically and with greater speed. Destroy them as 
quickly as possible, but don't let them distract you from 
jumping over the many craters in the lunar surface. 

Each time you go 500 miles across the moon towards 
safety, you'll pass an American outpost. These small bases 
provide short stops to rest and refuel before moving on. 

The alien ships are worth the current base number X 100 
points each. 

If you manage to go 5000 miles in Lunar Buggy, you'll 
have escaped safely and returned the buggy to American 
soil, where it belongs. D 

SEE PROGRAM LISTING ON PAGE 67 
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7M£Y TALK THE TAIK.. 



By now you've probably seen a" the ads lor all the 
fllllerenl "Super Cartridges" on the market. Ann they can 
talkallday, but let's gel real- no cartridge is going to oack up 
100% olanylhing. no cartridge is going lo turn your C-64 into 
an Amiga, and no lancy screens or hyperbolic claims are 
going to give a cartridge any more power than it really has. 

Thais why SUPER SNAPSHOT is still the best mulli- 
tunction cartridge on the market II is a product lhat is the 
resull ol a long process of relinement Our policy ot constant 
upgrading ensures you that you'll always own a state of Ihe 
art device. SUPER SNAPSHOT will never be "finalized" — 
because it's built lo evolve 




W£ WAIK THE WAL K 



HERE'S WHAT SUPER SNAPSHOT V3 CAN DO FOR YOU' 



• Copies 39% of all memory resident software. 

• Disaole feature for true transparency. 

• Extremely compatible Turbo Dos last loader— 1541/71/81. 

• Rom based scrolling M/L monitor will NOT corrupt memory. 

• Turbo 25— Formats lor up lo 25 times taster toads 

• Fasl data copier, single or dual: 1541/71 and 15B1/81. 

• Sector editor allows fasl examination and modification. 

• Free KRACKER JAX parameters lor those lough cracks. 

• Ten-day money back satisfaction guarantee. 

• Attention 0-128 owners. An optional switch is available which allows 
Only S 5. 00 additional. 



■ Files run without the canridge in place. 

• Pre-programmed or user definable funclion keys. 

■ Oos wedge supports multiple drives— 8. 9, 10. II 

• High Res and multicolor screen dumps lo printer or disk lile 

• Fast File copier, single or dual: 1541/71/81 

• Sprite killer and exclusive extended tile feature. 

■ Fasl load and save routines are used throughout. 

• Super Snapshot VI and V2 owners may upgrade for 520 00. Call us. 

• Our great Slideshcw Creator available for only $14.95. 
you lo disable Ihe C-64 mode wilhoul removing Ihe cartridge. 



So while other companies spend their time making their packages belter, we'll |ust keep on making our products bettor. 
Because we know Ihe difference belween TALKING THE TALK-AND WALKING THE WALK. SJPEH SNAPSHOT V3: ONLY S59.95! 



SOHUUflRE 



Mail yaur order lo: Software Supporl Inl -D13 
ina HI Andresen Road / Vancouver wa Mfjiii 



support 

INTERNATIONAL 



ORDER IKS is simple: we -iter pi money orrjars. cerniiod checks personal check son prior 
approval. VISA. MC. Discover and COD Please add 13 00 snipping and handling per 
order %2 00 additional lor COD orders Orders ouliide el North America please add S7 50 
per cartridge tor shipping. Deleenve items will tie replaced al no charge In-slock orders 
are processed wiitim 2i tirs Returns are not aecepied wiitiout auihorualion t 
Wasnmgron Residents please add 7 3% sales tax. 

T ■»■'■'"■ """■"- -- ■■■'•'= ■■■■■■■ 

In Canada order Irom: Marshvlew Software, PO Box 1212, Sackvlllo NB EOA-3C0 only 169,95 CDN. 

DEALERS - WE HAVE THE SUPPORT YOU'RE LOOKING FOR! 



Or cnl! our toM-Uno order line at 1-900-356- 1179, 
Sam-Spm Pacific time, Monday -Friday. Alter hours 
Ordfttm accepted al [206] &9T5-9S4B 7 day* rt week., 
Technical support avatlnble. Call (706) 636-9648, 
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While we a'o have a wide selection of 
children's educational and entertain- 
ment software, we also have a rapidly 
growing list of personal, business and 
programming software for not only 
the Commodore, the Amiga, and the 
Atari, but also for the Apple II GS 
and the IBM, So don't pass us by just 
because you think we're only for k ids. 
We're for you, too! 



We're having a special sale, with up to 
80% off selected software. Call now 
for a complete list. 



Call toll tree oms. iic Tenaj 1 800-433 2338 
Inside Tex. is call. 81 7 292 ?396 

WEDGWOOD RENTAL 

531 6 Woodway Drive 

Foil Worth, Te*as 76133 



4 
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CRYPTO-SECRET-CRYPTu 
< BURN THIS MESSAGE AFTER I T HAS BEEN READ ) 

TO: RED LEADER TEAM 

AT: FORTRESS 

REGARDING^ GREEN FORCES PENDING 

AGGRESS I UE ACTION. 
FROM ■■ RED TEAM COMMANDER 

W rRN I N G ! WE HA U E R E C E I U E D A D U A N C E 

S C Li U T R E P R T S F U E R I F I A B L E E N E M Y 
A CT I 'J I T Y I N Y U R AREA. W E C U R R E N T L Y 
ESTIMATE THAT ANYWHERE BETWEEN 5 AND 
15 BATTALIONS OF ENEMY TROOPS ARE 
EMPLACING OPERATIONS IN THE RUINS OF 
CIUILIAN BUILDINGS OPPOSITE THE MALL 
OF THE RED TEAM FORTRESS . ME ARE ONLY 
ABLE TO PR 0i, J IDE YOU WITH FOUR BOXES OF 
AMMUN I T I ON AT TH 1 3 T I ME , AS WE HAUE TO 
C N S E R U E U R W N S U P P L Y . V U A R E T 
HOLD THE FORTRESS AT ALL COSTS. THIS 
IS A DIRECT ORDER. THERE CAN BE HO 
WITHDRAWAL UNDER HOSTILE FIRE. WE 
EXPECT THAT THE GREEN TEAM WILL BEGIN 
THEIR ASSAULT ON YOUR CURRENT LOCA- 
TION AT DAYBREAK TOMORROW MORNING . 
E X P E C T E N E M Y I H C M I N G B Y 8 & S . IT 
WILL PROBABLY GET PRETTY HAIRY DOWN 
THERE . 
GOOD SHOOTING . . .AND GOOD LUCK ! 

—END OF MESSAGE 

e've never published a really gung ho mil- 
itary game in Ahoy!, so I figured it was 
time to'do one. In this short and sweet 
BASIC-ML hybrid program, you fight off 
a communist horde who are launching a massive assault 
on your location. As they appear in the windows of the 
bombed out ruins on the other side of the stone wall of your 
fortress, you attempt to shoot them before they can get a 
bead on the wall with their LAWs (Light Antitank Weapons). 
If you are too slow, they fire a rocket which blows away 
a portion of the wall. The resulting damage is registered 
on the red bar at the bottom of the screen. When this bar 
vanishes, the fortress has been overrun. 

The game uses a joystick in Port 2. The white cross rep- 
resents your aiming point. Center this on a soldier as he 
appears in the window and press the button. If you hold 
the trigger down, the gun will fire continuously. This is 
very unwise, however, because you only have four boxes 
of ammo to begin with , and when they are used up, you're 
at the mercy of the GREEN aggressors. 

The game has four different attack waves, with complete 
havoc breaking loose on the fourth one. Soldiers will be 
popping up in every window and firing everything they've 
got left to try to destroy the fortress. If you manage to sur- 
vive this last attack, the RED army will be victorious over 
the GREEN forces. Otherwise, you'll end up reading propa- 
ganda and growing potatoes. 

The soldiers are worth 150 points apiece, multiplied by 
the number of the wave. Any score over 70,000 is good. 
It's very difficult to repel the GREEN forces. They're 
mean. They're hateful. They cross the street against the light. 
They've got tons of overdue library books. Just last week, 
they killed Rambo by inserting bullets into his body manually. 
Good luck! USEE PROGRAM LISTING ON PAGE 70 
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And Q-Link, the dynamic telecommunications service for 
Commodore* owners, does just that! 
As the developer of GEOS. the graphics environment operating 
system for Commodore 64s and 128s, 1 know how good Q-Link is. 
Personally and professionally. Here at my company, we recommend 
Q-Link to all our customers. We use it ourselves, too, for online 
customer service ... so you can get help when you need it. We've 
also found it's a very efficient way to provide upgrades and patches 
and to announce new GEOS-compatible products. 

With just your Commodore, a modem and Q-Link software, a new 
world of personal computing options opens up: thousands of 
programs you can download and keep: advanced graphics (thanks 
to GEOS); an exclusive help line to experts at Commodore; 
online educational courses taught by real teachers; fun; games; 
friendship, you-name-it, Q-Link lets you realize the full potential of 
Commodore computing- right at your fingertips. 

Do I use Q-Link? Absolutely! And what's really impressive is that 
when you join Q-Link, you get a modem and Q-Link Software free! To 
my mind that's a tough offer to turn down. But don't take my word 
for it. Find out for yourself. Call . . . 



1-800-782-2278 



#rian Dougherty 

Software Designer/CEO 
Berkeley So^works 




Call today to get your free modem and software. 



8619 Weslwood Center Drive 
Vienna. VA-2218U 



m 



% 




The Ahoy! Art Gallery offers the oppor- 
tunity for feme and fortune to aspiring 
Commodore artists. Send your work on 
disk to Ahoy! Art Gallery, Ion International 
Inc. , 45 Vfest 34th Street- Suite 500, New 
York, NY 10001. Indicate the drawing 
package or file format of the images. 
Graphics produced on the Amiga are eli- 
gible for inclusion in AhoyVs AmigaUser; 
C-64, C-128, and Plus/4 images are eligible 
for inclusion in Ahoy! If your image is pub- 
lished, you will receive a free one-year sub- 
scription. Current subscribers will have 
their subscription extended by one year. 

Note that the Art Gallery is not a contest. 
Published pictures are selected in an arbi- 
trary and capricious fashion by the Ahoy! Art 
Director, based solely on their artistic merit. 
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Irony of ironies— only two Americans are among 
the contributor! to this month's 4th of July edition 
of the Art Gallery. {Although, as the old joke goes, 
they have a 4th of July In other countries— they 
fust don't celebrate Independence Day.) At left are 
two treatments of PntMentt' Day — traditional and 
punk -by Michael Mlkottts (Berwyn, II). Above Is 
Marching Band by Helnz Diekert (Vernon, BC), 
pounding out "Stars and Stripes forever" |utt as 
surely as mom made fitfle green apple pie (or some- 
thing like that). At right Is an unforgettable Reagan 
by Alberto Valsecchl {Mltano, Italy), Fireworks by 
Tom Kane (Buffalo, NY), and Pott Office by Robert 
M. Ellis (LoSolIe, Quebec), true, it's a Canadian post 
office. But where would our neighbors north of the 
border be without the American Revolution? Still 
trapping furs, no doubt, and trading them to us for 
three-cornered hats and powdered wigs. Here's 
wishing all our readers a safe and enjoyable holiday. 





# 
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PLASMATRON 

Avairrage 
Commodore 64 
Disk; $14.95 

Plasmatron is a perfect example of 
what can only be called "generic en- 
tertainment software." These generally 
well-executed but hackneyed game pro- 
grams are produced in Europe and sold 
in the U.S. by mainstream publishers. 
Often the American publisher uses a 
"discount" label name. In this instance, 
the Avantage banner signifies Acco- 
lade's lower-priced software. 

European programmers grind out 
these rehashes of arcade "standards" 
like sausage. Games which should be 
the result of a creative process arc in- 
stead formulaic and predictable. 

On the other hand, as with all gen- 
eric product, the user knows what he's 
getting and he gets it at a good price. 
The entertainment is based on play me- 
chanics that are already proven suc- 
cesses, and the lower price gives gam- 
ers a chance to acquire ptayware at bar- 
gain rates. 

Plasmatron is just such a piece. Or- 
iginally produced by The Zen Room 
and brought to these shores by Avan- 
tage, it's a horizontally scrolling science 
fiction shootout set against a variety of 
scrolling backgrounds. The user pilots 
a Plasmatron fighter, a futuristic com- 
bat aircraft, over the planet Loughton 
2, encountering fierce resistance from 
hostOe forces. (Unfortunately, the 
skimpy instructions never specify whe- 
ther these "aliens" are native to this 
world.) The objective is to blow up as 
many ships and other targets as possi- 



Plasma- 
tron's only 
somewhat 
original as- 
pect is its 
visual pre- 
sentation. 
The lower 
part of the 
landscape is 
"tilted" to 
help manu- 
facture a 
3-D look. 
READER 
SERVICE 
NO, 1S1 



ble, then make it back to base before 
the limited shields are exhausted. 

The enemy ships in the initial attack 
wave are sitting ducks, but before long 
the opposition stiffens. Then the player 
is up against giant insects, floating as- 
teroids, and multicomponent fighter 
ships which take up to- five hits to elim- 
inate completely. 

The only remotely original aspect of 
Plasmatron is its visual presentation. 
At first look, it seems to be the familiar 
side perspective seen in earlier games 
like Defender (Williams) and Super 
Cobra (Stern). The designers, however, 
actually "tilted" the lower part of the 
landscape and added the Plasmatron 
fighter's shadow to help manufacture 
a 3-D look. This is a purely cosmetic 
innovation that has no impact on the 
game whatsoever. But when it comes 
to generic software, one takes one's in- 
novation where one finds it. 

Plasmatron offers simulated three- 
dimensional graphics, but the inspira- 
tion for this pseudo-3D seems to be the 
old View-Master slide viewer system. 
When you looked into a View-Master, 
the world indeed had dimension, but 
only as a series of spaced backdrops. 
These backdrops were flat, like two-di- 
mensional stage scenery. That's how 
Plasmatron looks. There's a horizon 
line about a third up the display area 
with backdrops slotted in sequence to 
create the dlusion of depth. 

The piayfield also includes a console 
which displays the status of the ship's 
shields, damage, ETA, and lives re- 
maining. It's difficult to speculate about 
the purpose of a damage reading on a 
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ship which is destroyed as soon as its 
shields run out, especially since the in- 
structions never even mention that there 
is a console! Damage is accumulated, 
however, even while shields remain in- 
tact, but the game plays at such a high 
speed it isn't possible to determine how 
it is being accrued. Current score and 
high score displays flank the console. 

Plasmatron has some nice graphics 
and an original look, but there's noth- 
ing else here that hasn't been seen hun- 
dreds of limes already. 

Avantage/Accolade Software, 20863 
Stevens Creek Blvd., #E, Cupertino, 
CA 95014 (phone: 408446-5757). 

— Hill Kunkel 
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For the hard corps computer wargamer. 
READER SERVICE NO. 152 



WOODEN SHIPS & IRON MEN 

The Avalon Hill Game Co. 
Commodore 64 
Disk; $35.00 

Transferring a military simulation 
from the tabletop to the computer 
screen is always a chancy undertaking. 
Avalon Hill, which has a board game 
catalogue full of non-electronic clas- 
sics, has tried numerous times with 
varying results. 
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Game Play 

Pure-Stat Baseball's underlyin 

nf baseball like never before. Within this framework the program considers 
each player's hatting statistics against hoih LEFT and RIGHT-handcd pitchers, 
where available, anil pitchers stats vs. both I.EFT- and RIGHT- handed bat- 
ters, Ever? player's fielding and base-running abilities are also considered 
(an important factor when attempting to steal a base, etc.) 

Select the team you'd like to manage, then pick the team you want to play 
against, livery team from the 1985 season is accurately represented, along 
with eight classic teams from the past. Determine your starting lineup, 
designate a starting pitcher, and make player substitutions when necessary. 
You call the plays, offense and defense. In a one-player game, your com- 
puter opponent displays un canny intelligence in reacting to v oar managing 
decisions 

Manager's Functions 

Built-in manager's functions provide extra versatility. The Trading function 
gives you the opportunity to create the "what If" team(s) you've always 
dreamed about With this function you can have Dwight Gonden playing 
villi Mickey Mantel and llahe Ruth. Or, if you like, you can form your own 
draft leagues from existing learns and play against your friends for your own 
pennant and World Series, 

The Stat Keeper function compiles all of the players' statistics for you and 
calculates Halting Averages and pitchers' ERAs. You can track your own teams' 
performances and print the season statistics for your club or league. 

Stadium Disk 

An optional Stadium Disk Is also available that lets yon play In any of the 

twenty six Major League Stadiums. 




>mcs an in- 



statisiUal baseball simulation for zero, one or 

two players, (lame play, manager's functions, 

graphics, and a complete statistical library 

establish Pure-Stat Baseball™ as the ultimate 

L sports simulation program. 



Suggested retail price 

$3995 



liable for C-64/128, Apple, 
IBM-PC 

can maintain a complete statistical record of each team 
player's performance. You can print all of your players' year-to-date perfor- 
mance siati sties at anytime throughout the season. All player stats and game 
Box Scores can be displayed on the screen or sent to an external printer 
for a hardcopy printout. The PRINT TEAM STATS function can be used at 
the end of the season to determine your Most Valuable Player, or to review 
your club's performance 

Pure-Stat Baseball™ also includes a unique Auto-Play option that lets the 
computer play a complete game in less Ihau three minutes. A whole series 
of games can be played unattended, and an entire season of player and team 
statistics can be compiled over several days with all game stats printed out 
Inr your records. 

Discm er for yourself just how enjoyable a baseball simulation game can be. 
Pure-Stat Baseball,™ the first real baseball game on a computer. 

Sec your local dealer, or call: 



Software 
Simulations 



203/377-4339 



H»der Service No. W 




Wboden Ships has few computer frills. 

When S. Craig Taylor, Jr. unveiled 
the original edition of "Wooden Ships 
& Iron Men" under the Battle! ine 
Games imprint, strategy gamers hailed 
it as the greatest simulation of naval 
combat during the age of sail. Time has 
scarcely dimmed its reputation, so the 
release of the home computer disk 
ranks as one of the year's most impor- 
tant electronic gaming events. 

Programmer Jim Jacob has executed 
a fairly literal translation of the board 
game. As a result, the Commodore ed- 
ition of Wooden Ships & Iron Men 
makes virtually no use of the unique 
advantages of the computer. The sound 
is minimal, the graphics vaguely ape 
the counters and map of the board 
game, and gameplay is quite similar to 
Taylor's original creation. 

If Jacob has transmitted the limita- 
tions of the board game to the compu- 
ter version undiluted, the same can also 
be said of the simulation's strengths. 
The computerized Wooden Ships & 
Iron Men features the same wealth of 
detail, historical accuracy, and lively 
gameplay as its cardboard inspiration. 

The main display of this one- or two- 
player contest is divided into two sec- 
tions. The upper portion is a scrolling 
map with a movement grid. Each ship 
occupies two adjacent hexagons. Al- 
though the drawings are not especial- 
ly detailed, players should have no 
trouble distinguishing friend from foe. 

The lower portion of the screen pre- 
sents option menus, ship status reports, 
and results of combat. The computer- 
ist employs the joystick to choose or- 
ders from menus and confirms them 
with a press of the action button. The 
program automatically puts a joystick- 
controlled cursor on the map when the 
player needs it for specific movement 
and firing commands. 

Like most Avalon Hill creations, 
Wooden Ships & Iron Men subdivides 



turns into phases for ease of play. The 
sequence for a complete turn consists 
of the following phases: wind changes, 
unfoul tangled ships, movement, drop 
or raise anchors, grapple with nearby 
ships, boarding preparation, combat, 
melee combat and crew transfer, reload 
guns, and change sails. 

Although this list of procedures hints, 
correctly, that this is one complicated 
game, it's really not so daunting taken 
step by step. A mammoth 56-page 
manual contains exhaustive tutorials on 



both the routine of play and the con- 
struction of customized scenarios. 

The ability to create additional bat- 
tles is a great feature, especially for the 
naval historians among us, but the pre- 
pared scenarios are of paramount im- 
portance to most gamers. Wooden Ships 
& Iron Men really shines with 25 en- 
gagements drawn from the period from 
the American Revolution to the War of 
1812. 

The variety is incredible. The bat- 
tles range from ship versus ship slug- 




While Stealth Mission boasts remarkably accurate cockpit displays, its em- 
phasis is on flight and combat elements. READER SERVICE NO. 153 



Speed 
Buggy of- 
fers five 
tortuous 
courses, all 
utilizing big 
rocks, 
wooden fen- 
ces, and 
brick walls 
in various 
combina- 
tions as ob- 
stacles. 
READER 
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NO. 154 
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fests like Constitution against Insurgent 
to huge multiship actions like the Bat- 
tle of the Nile and Trafalgar. Most of 
the battles involve vessels from the US, 
France, and Britain, but there is some 
use of lesser powers like Spain and 
Venice when history so dictates. 

For all its outstanding qualities, 
Wooden Ships & Iron Men appeals 
most strongly to hard corps computer 
wargamers. It minutely duplicates the 
board game, but docs not add many of 
the trimmings non-wargamers have 
grown to expect from their software. 
Those who want an uncompromisingly 
authentic recreation of this colorful pe- 
riod in naval combat could well find 
a new favorite program once they set 
sail with Wooden Ships & Iron Men. 

The Avalon Hill Game Co., 4517 
Harford Rd., Baltimore, MD 21214 
(phone: 301-254-9200). -Arnie Katz 

SPEED BUGGY 
Data East 
Commodore 64 
Disk; $29.95 

To paraphrase an old saying, "God 
must love driving games. Otherwise he 
would not have made so many of them." 
It sometimes seems as though there's 
a new one every month, each only mi- 
croscopically different from those 
which preceded it. 

Speed Buggy, the latest title in this 
genre to reach market, breaks out of 
this automotive rut. It provides a to- 
tally original gaming experience that 
could never be confused with the sports 
car and race car simulations. 

The gamer employs the joystick to 
control a four-wheel off-road vehicle. 
It turns on a dime, accelerates rapidly 
and, best of all, can skim along on two 
wheels if the player drives over one of 
the rocks which the designer has 
planted so helpfully in the middle of 
the road. After hours behind the wheel 
of electronic Indy cars and Corvettes, 
it's quite a shock to see the buggy 
launch into the air and sail over road 
obstacles. 

The control scheme is simplicity it- 
self. Moving the stick to the left or 
right governs lateral motion, slamming 
it forward puts the pedal to the metal, 
and pulling it back applies the brakes. 
The action button shifts between high 
and low gears. A rudimentary control 



panel in the upper right quarter of the 
screen presents all pertinent data, in- 
cluding the speed, lap number, current 
gear, and elapsed time. 

The disk provides five tortuously 
twisted courses. The easiest is called 
"Off road," possibly because it has 
more hazards than the other four, 
which are labeled "North," "South," 
"East" and "West." Each has extensive 
scenery themed to its name. For ex- 
ample, "South" is a symphony of palm 
trees, sandy beaches, and pastel col- 
ors. All five utilize big rocks, wooden 
fences, and brick walls as the major ob- 
stacles, but the combinations vary 
greatly from course to course. 

Speed Buggy is a race against time. 
The vehicle must pass the finish line 
before the countdown clock reaches 
zero. If the buggy navigates the entire 
course last enough, the player earns the 
right to try another lap. The hazards 
are positioned differently for each lap, 
so there is pleasing variety even for the 
most skillful drivers. 

The scoring system might dampen 
the spirits of a few novice drivers. 
Completing that first lap causes a tre- 
mendous increase in total score for 
most players. It is common to leap 
from a total in the 7000-8000 range to 
30,000 in a single race just by beating 
the first time cutoff. So, until the com- 
puterist leaps that hurdle, be prepared 
for point totals to stay fairly static from 
round to round. 

Like many other Data East produc- 
tions. Speed Buggy bears the telltale 
traces of insufficient attention to detail . 
The program itself is fun and highly 
playable, but all the little things which 
enhance the gaming experience are ei- 
ther wrong or missing. 

The implementation of the vanity 
board is a perfect example. Because 
Speed Buggy was obviously pro- 
grammed for use with a tape drive, the 
disk does not retain high scores once 
the computer shuts down. There is no 
reason why this could not have been 
corrected before American republica- 
tion. The same goes for the ludicrous 
title screen. It calls the game, presum- 
ably in an English transliteration of the 
original Japanese, "Buggy GoyT Insert 
snickers and ethnic jokes here. 

Fortunately, none of these trivial 
flaws directly impacts the gameplay of 
Speed Buggy. It is tons of fun and a 




Included among Stealth Mission's eight 
scenarios are a mountain conflict, a 
battle at sea, and a bomber marathon. 

terrific addition to the Commodore 64s 
library of driving games. 

Data East, 470 Needles Dr., San 

Jose, CA 95112 (phone: 408-286-7074). 

—Arnie Katz 



STEALTH MISSION 
SubLOGIC 

Commodore 64 
Disk; $49.95 

Stealth Mission is a new flight sim- 
ulator from SubLOGIC. Roll it around 
in your mouth and say it again: "a new 
flight simulator from SubLOGIC." 
Sounds great, doesn't it? 

SubLOGIC, in the person of Bruce 
Artwick, virtually invented flight sim- 
ulation for microcomputers earlier in 
the decade. The original Flight Simu- 
lator (for the IBM PC) and the subse- 
quent Flight Simulator II (other home 
systems) set the standards that dozens 
of other publishers spent years strug- 
gling to surpass. Secondary software, 
meanwhile, in the form of FS Scenery 
Disks, lets users take off and land their 
small aircraft anywhere from Chicago 
to Tokyo, and all points in between. 

A few years later, SubLOGIC again 
blew the whole scene apart with Jet. 
This advanced simulator allows users 
to climb into the cockpit of several 
modern combat fighter jets and engage 
in mach-speed dogfights, aerobatics 
(stunt flying), and land on the deck of 
Continued on page 51 
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COMPUTER DIRECT 



tsID WE MEAN IT! 



Prices Expire 7-31 -88 



1 2"Monochrome 
Monitor 




• High Resolution 

• 80 Column 

• 1000 Lines At Center 

• Great For Business 

• Fantastic Value 

Our Low Sale Price 

95 



$ 79 



List $329 



(Add $10.00 shipping.*) 



720 CPS 15" Printer 

Multi-Head Wide Carriage Printer 
With High Dot Resolution 



13" Color Composite 
Monitor 




• Anti-Glare Screen 

• Audio Speaker 

• Volume Control 

• Block Matrix Tube 

• Horizontal Resolution 260 Lines 

• Includes Composite Cable 

Our Low Sale Price 



$ 169 

(Add $1 -1.50 shipping.') 



95 



List $329 



SV Floppy Disks 




• 720 CPS -150 CPS NLQ 
« 8K Print Buffer 

• Prinl Speed of 228 LPM In Draft 

• 6 Print Heads Achieve High Dot 
Resolution In Higher Speed 

•NLQ Speed Of 47.4 LPM 

• 136 Column Wide Carriage 

• IBM and Epson Mode 

• Parallel Centronics Port 

Our Low Sale Price 



$ 799 

(Add SH.50 shipping.*) 



95 



List $1995 



Double Sided 
Double Density 

Minimum Quantity 50 
Maximum Quantity 250 

Box of SO 

(without sleeves) 

Box of SO 

(with sleeves) 

Box of 100 (no limit) . 
(with sleeves & labels) 



19 



c 

each 

(Add H.QO shipping.*) 
, $9.50 (19' each) 



13" RGB/Composite 
Color Monitor 




o 



• Black Dot Screen 

• 3 Monitors In One - 
Composite/RGB/80 Column 

• Green Screen Only Switch 

• Resolution 560 x 240 Pixels 

Our Low Sale Price 



$219 

(Add $14.50 shipping.*) 



95 



List $399 



THE VOICE 
MESSENGER 



.$10.50 (21 « e«h 



4 



, $24.00 (24' each) 



Economy Sleeves $1 .00 per quantity of 50 

Disk Labels $3.95 per quantity of 100 

Disk Notchers $3.95 eoch 



5 '4 "Sony Disks 

^W ~W each 




Limited 
Qualities 

(Add UW (hipping. 1 ) 



Single-Sided, Double Density 

Sold In Packages Of 5 With Sleeves, 

Labels & Write Protects Included 

$2.45 Per Box 



Speech Synthesizer 
for the Commodore 64 



Features K 

• Infinite vocabulary 

• Built-in software — nothing extra to buy 

• Two voices each with intonation; adds 
character 

• Simple BASIC commands for easy 
programmobility 

• Doesn'l steal RAM from the BASIC workspace 

• Won't stop screen action 

• Clear, easy to understand speech 

• Easy 'installation — just plugs in 

• Keyvoicing — keys speak as they are pressed 

• Direct text to speech capability 

Our Low Sale Price 



$29 



95 



List $49 



(Add $3.00 shipping.*) 



15 Day Home Tria l - 9Q Day Immediate Replacement Pol icy 
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COMPUTER DIRECT ^i^^-^^^ 

^Te^Rd, Barcington, II. 60010 ^^"^^^ 
Call (312) 382-5050 To Orderl ™to tamM *M*™v^*<*™<**^^*>*^<^-«'*^ li **T t <>< a * ua ''™ ctM *' vi»a — mmtmjcato — c.o.o. 

Render Service No. 166 



COMPUTER DIRECT 

Is 1st In PRICE, SUPPORT, & GUARANTEE! 

WE LOVE OUR CUSTOMERS! | Pri«»£xpir»7.3T5r| 



Complete Commodore 
C64c System Sale 

Computer, Disk Drive, Monitor, Printer & Software 



No One Sells This 
System For Less! 





Sale$ 



(Add $35. OO shipping.*) 



395 



95 



List $1049 



The Complete System for $ 395 95 Includes: 



• Commodore 64c Computer 

• Excelerator Plus Disk Drive 

• 12" Monochrome Monitor With Connecting Cable 

• Genuine IBM® Printer With Commodore Interface 

And 1 Roll Of Heat Transfer Paper 

• GEOS Program: Word Processor And Drawing Program 



15 Day Home Trial • 90 Day Immediate Replacement Policy 

m (312) 382-5050 £3 <gSS3QSJ?E!F 

Mail 




Call 



We Love Our Customers! 



Barrington, IL. 60010 



Reader Service No. 166 



COMPUTER DIRECT 



AND WE MEAN ITS 



§■* 



Prices Expire 7-31 -88 j 



* 15 MHz IBM® Turbo 
XT Compatible System 




The Complete System Includes: 

• 51 2K Professional Turbo XT Computer 
•MS DOS 3.2 « GW Basic 

• 12" Hi-Res 35 MHz Monochrome Monitor 

• Genuine IBM® Printer With Interface & 
1 Roll Of Heat Transfer Paper 

• Word Processor, Spreadsheet S Data Base 

• Complete DOS 8 System Tutor Included FREE ! 

Our Low Sale Price 



* 15 MHz IBM® XT 
Compatible Computer 




$ 



699 

{Add $35.00 shipping.*) 



95 



List $1995 



• • 15 MHi (Norton CI Roting) 
•MS DOS 3.2 S GW Basic 

• Parallel , Serial & Game Ports 

• TTL Monochrome Monitor Card 

• 512K Professional XT Turbo Computer 

• Super Fast V20 CPU • "AT Style" Keyboard 

• Security Keylock & Clock Calendar 

Our Low Sale Price 



$ 



599 

(Add $10.00 shipping.*) 



95 



List $1195 



12MHz 286 IBM® AT 
Compatible Computer 



Ritqulrsi 
MS DOS k GW Baric. 

(79,95 With Computer 
Not Sold Separately. 




• 80286 16 Bit Microprocessor 

• 1 .2 MEG Floppy Disk Drive 

• Parallel & Serial Printer Ports 

• 101 Key "AT Style" Keyboard 

• BIOS w/Builtln Support For 3'A" Drives 

• Clock/Calendar 8 Security Keylock 

• or 1 Wait State 



$ A Q A95 With Floppy 'Hard Drive Controller 
O W CardS 51 2K RAM Memory Installed 



Our Low Sale Price 



$ 



599 

(Add $14.50 shipping.*} 



95 



List $2295 



Complete Commodore 
C128D System 



Complete Apple® 
Compatible System 



Hi-Speed Printer 

300 CPS Draft • 50 CPS NLQ 
With Color Printing Capabilities 






The Complete System Includes: 

• C-I2SD Computer With Built-in Disk Drive 

• 12 Monochrome Monitor 

• Genuine IBM ; Printer With Interface 

• One Roll Of Heat Transfer Paper 

• C-12BD Programmer's Reference Guide 

Our Low Sale Price 



The Complete System Includes: 

• Laser 128 Apple Compatible Computer 

• Genuine IBM® Printer With Laser 128 
Interface £ 1 Roll Of Heat Transfer Paper 

• 12" Hi-Resolution Monochrome Monitor 

• Quality Word Processor. Spreadsheet 
And Data Base 

Our Low Sale Price 



•300 CPS Draft -50 CPS NLQ 

• Front Panel Margin Setting 

• Download Character 5etting 

• Variety of Characters & Graphics 

• Parallel & Serial Interfoce Ports 

• Auto Paper Load & Ejection 

• IBM and Epson Mode 
•Botton FeedS 10 K Buffer 

• Optional 7-Co!or Printing Kit . , 



Salem. 45 



Our Low Sale Price 



$ 



549 



(Add $30.00 shipping.*} 



95 



List $825 



$ 479 



(Add S27. 50 shipping.*) 



95 



List $1409 



$ 279 



(Add $10.00 shipping.*) 



95 



List $499 



15 Day Home Trial • 90 Day Immediate Replacement Policy 



COMPUTER DIRECT 

22292 N. Pepper Rd, Harrington, IL. 6OO10 
Call (312) 382-5050 To Orderl 
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COMPUTER DIRECT 

Is 1st In PRICE, SUPPORT, & GUARANTEE! 

WE LOVE OUR CUSTOMERS! | Pri^s Expire 7-ai^] 



C64c Computer 

Includes GEOS (Word Processor & 
Versatile Drawing Program) 




*V\v* 



Our Low Sale Price 



$ 149 



(Add $10.00 shipping.*) 



95 



List $249 




/AMIGA 




Amiga 500 Computer Sale 

Call For 
Price 



512KCompul 
Compatible with Amiga 
1 000 Software 
List $799 



Amiga 1010 External Drive Sale 

3% "Compact-Size Cfll I For 

MIcroDisk Drive TV » 

List $299 Price 

Amiga 1084 Color Monitor Sale 

)3' , RGB80Columnx25 Call FOtT 

Price 



Row, 640 x 400 Pixel 
List $399 



C 1 28D Computer 

Includes Full 128 Detached Keyboard S1571 Drive 

With 128K Of User Memory Expandable To 640K. 

3 Operation Modes [C64, C128 8 CP/M, Ver. 3.0) 

40/80 Column Output, 16 colors 

Free Programmer's Reference Guide 




Our Low Sale Price 

95 



$ 499 



List $349 



(Add $10.00 shipping.*) 



Excelerator 
Disk Drive 



Commodore Compatible 
'Includes FREE Game 




BOOK 3 V 
Disk Drive a 

Commodore 1581 Works With 

C64/C64c, andC128/C128D. Over 

800K Bytes of Formatted Storage On 

Double-Sided 3.5" Microdiskettes. 




300/1200 BPS 
External Modem 

•1200 Baud Bell 212A at 1200 or 300 Bits/Sec 

• Fully Hayes Compatible 

• Automatic Dialing & Answering 

• Auto Radial At Receipt Of Busy Signal 

• Built-in Speaker With Volume Control 

• Built-in Help Commands 

• Both Touch Tone and Pulse Dialing 

• Uses US- 232 Interface 

(RS-232 Interface Cable Required 



Sale Price $ 

(Add $3.03 shipping.*) 



79 



95 

Li>t $139 



Our Low Sale Price 

$1 il A 95 



149 



(Add $10,00 shipping.*) 



Our Low Sale Price 

$ 1 -VA95 



List $249 



179 



(Add $10.00 shipping.*) 



300/1200/2400 BP$ 
External Modem 

• Fully Hayes Compatible 

• Both Tone 3 Pulse Dialing 

• Built-in Speaker With Volume Control 

• Command Buffer Thot Holds Lip To 40 Characters 
•2400 Baud Bell 212A At 300, 1200 & 2400 BPS 

• Uses RS-232C Interfoce 
(RS-232C Interfoce Cable Required) 



List $249 



Sale Price $ 

(Add $3.03 shipping.*) 



159 



95 

List $249 




15 Day Home Trial * 90 Pay Immediate Replacement Policy 



Call 



(312)382-5050 [>< 



We Lave Our Customers! 



Mall 



COMPUTER DIRECT 

22292 N. Pepper Road 
Barrlngtart, 1L. 60010 



Render Service Na. 166 



COMPUTER DIRECT 

Will Not m& UND1 

AND WE IVtEAtsI IT1* 



Super Hi-Speed 200 CPS Printer 

Star Micronics LV-2010 10" Printer With Near Letter Quality 

Sale $ | AA95 

M M List $499 




(Add $10.00 shipping.*) 



No One Sells This Printer For Less! 



• High Speed 200 CPS Draft 

• Near Letter Quality 

• Tractor and Friction Feed 

• Automatic Sheet Feed Loading 

• Both Parallel & Serial Interface Ports 

• Continuous Underline 

• IBM Compatible 

• Ultra High-Res Bit Image Graphics 



Printing Speed 

200 Characters Per Second Draft 
45 Characters Per Second NLQ 



Print Method 

Serial Impact Dot Matrix 



Print Buffer 

16K Bytes 



Port 

Both Centronics Parallel S Serial Ports 



1 5" High Speed 1 60 CPS Printer 

Splendid Mixture Of High Speed And Near Letter Quality 




Sale 



(Add $14.50 shipping.'] 



$ M9 



95 



List $499 



No One Sells This Printer For Less! 



• NLQ and High Draft Speed 

• Continuous Underline 

• Skip Over Perforation 

• IBM Compatible 

• Friction and Tractor Feeds 

• Both Parallel & Serial Interface Ports 

• High Res Graphics Printing 



Printing Speed 

1 60 Characters Per Second Draft 



Print Method 

Serial Impact Dot Matrix 



Paper Feed 

Sprocket or Friction Feed 



Port 

Both Centronics Parallel & RS-232 Serial Ports 



15 Day Home Trial • 90 Day Immediate Replacement Policy 



COMPUTER DIRECT 

22292 N. Pepper Rd. Borrington, IL. 60010 
Call (312) 382-5050 To Order! 



* HUnoii rnidrrm idj * : % ulet in Ail or dm rnuil be In U.S. Dollu* Wc ihip lo All poinu in (he U.S.. CANADA, PUlifcTt) HICO, A APOITO- 
F'lemw fitJI for chiP|« ...imi.ie rormnenUJ U.S. or C.O.D. MAIL ORIlFJtS en^U** L*i!iitr check, money order, or pertoiwl chock. AJlow \*6*yt dJeUwy, * 
io T day* tot pruTHf Ofdkrt *nd I <Uy nprew null l*ric#«„ ip*ct ttc* imrn A mvMi\*tnhly rubjxcT 10 Ch*rif« wpihoui (Win.*. Shipping ind hutdlinj tlw|B U-* 
not tcfuftOatiie (Monitor* only ihtppoJ in toinlncfiwJ US | COWMJTEM DIRECT wtii rruccn any valid niiJontllr tdt-ftfiwd delivered pewe on the ***ci 
mutk 1 n oduct «itti * LL.rnrn^itik paymntl method ( ca cludim mny ■ r*pl K*ble uilei tuei|. A phytic*] copy order 
of the current *».i-! lo»cf priced *d rnuiE be lupfriked with the order, or within 13 >.H» of dire of ourchue. VISA — MAftTlrtCARD — C*O.D* 

Render Service No, 166 



COMPUTER DIRECT 

Is 1st In PRICE, SUPPORT, & GUAR ANTEE! 

WE LOVE OUR CUSTOMERSl | Prices Expire 7-31-88 | 



Genuine IBM® 8%" Printer 

8Y2" Letter Size • 80 Column • Limited Quantities 



Sale 



(Add $7.50 shipping.') 



$ 44 



No One Sells This Printer For Less! 




• Unbelievable Low Price 

• Advanced Dot Matrix - Heat Transfer 

• Upper & Lower Case (With True Lower Descenders) 

• Underline • Enlarged • Graphics 

• Ready to Hook Up To Serial Port Of IBM® PCjr 

• Low Cost Adapters For IBM®, Apple, Commodore & Laser Computers 



Hi-Speed NLQ 1 80 Printer 

Superb Near Letter Quality • Lifetime Warranty* 



Sale $ | VA95 

[Add 1)0.00 shipping.*) ^~ ^ " List $499 



No One Sells This Printer For Less! 



• High Speed Dot Matrix 

• Near Letter Quality Selectable From Front Panel 

• Italics - Elite - Condensed - Pica 

• Super Graphics - 8K Buffer 

• Tractor/Friction Feed 

• Centronics Parallel Port 

• * Lifetime Warranty On Print Head 

• 6 Month Replacement Policy For Printer 





15 Pay Home Trial * 90 Day Immediate Replacement Policy 



(312)382-5050 E< 



Call 



We Love Our Customers! 



Mall 



COMPUTER DIRECT 

22292 H. Popper Road 
Barrlngton, IL, 60010 



Reader Service No. 166 



INTTIAI \RRAYS AND VARIABLES 
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VARI-SCAN 



lor the C-64 and C-128 

By Buck Childress 



ri jlj j_ » i-j 
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ell people, I'm about to hand down a secret 
recipe for the best RAM chip souffle this 
side of Pluto. Jusi add a head full of frus- 
tration, a dash of space bar, and a couple 
of cursor keys to taste. Mix well, then jump up and down 
on 01' Reliable till your anxiety is overtaken by grief. Heck, 
you've just hurled your trusty companion up to that Great 
Microchip in the Sky. 

Of course I'm just kidding...! think. At any rate, we all 
get overwhelmed by frustration from time to time. After 
all, some of us are only human. Well, I suppose an ex- 
planation is in order. 

Variables (or should that be frustration-ables?) have got 
to be one of the biggest contributors to premature hair loss, 
fried brain cells, and unintelligible babbling amongst com- 
puter programmers. Have you ever been in the process of 
writing a program, added a new (or so you thought) vari- 
able to the list, and then watched in total disbelief as your 
masterpiece took a nose dive? Shucks, if you'd only known 
that not-so-original variable was in there, you probably 
wouldn't be dangling from the ceiling right now. Why don't 
we get you off that ceiling (how are you going to explain 
the footprints to the landlord?) and lower the old blood pres- 
sure a bit. Maybe with a little bit of practice you'll be able 
to talk again. As for me, my brain cell just multiplied. With 
some luck both of them might do it again. Then Til have 
four. 

There have been programs written that will give a list 
'of variables currently in the program. They work well, but 
you have to trace through the list to see if the variable you 
want to use is there. That's okay so long as the program 
isn't too long and you're not in any kind of hurry. But, when 
you get on a roll and your creativity and fingers are flying 
like a Concorde jet, those 'programs just won't do. So... 
Vari-Scan to the rescue. When you want to find out if a 
variable is in use, just type it, press RETURN, and bingo. 
You'll know in less time than it takes to yawn. 

Vari-Scan automatically searches out any variable you 

choose, whether string, numeric, integer, or array. It's easy 

to use, and gets the job done pronto. It works equally well 

on both the C-64 and C-128. 

After saving a copy of Vari-Scan, run it. The loader 

30 AHOY! 



SPI 






POKEs the machine language data into memory and checks 
for errors. When it's done you can activate Vari-Scan by 
typing SYS 52000 for the C-64, or SYS 4864 for the C-128, 
and then pressing RETURN. 

Whenever you want to see if your program contains a 
certain variable, just type the variable name and press RE- 
TURN. If your chosen victim is in the program, Vari-Scan 
returns the line numbers that have it. They can't run and 
they can't hide. You've got 'em now. 

If the variable you're searching for is an array, you have 
a couple of options. You an scan for an exact match by en- 
tering the entire name such as A(l). A(l) would have to be 
in the program for a match to occur. But, if you want to 
know if the variable A is used in any arrays (e.g., A(J), 
A(l,5), A(2,X,7) ), enter the variable name like this: 

A(E 

The LIRA (£) sign tells Vari-Scan to list all occurrences 
of A as used in arrays. 

Miri-Scan can discern the difference between all variables. 
For example, let's say that you want to search for the vari- 
able Al. Vari-Scan will only scan for the numeric variable 
Al. It will not report any integer, string, or array variables 
of the same name, nor will it inadvertently report a vari- 
able containing an A, such as AB. The same holds true 
for other types of variables. Vari-Scan won't scan for any- 
thing in quotation marks, or on a line following a REM 
or DATA statement. 

Vari-Scan checks for extended variable names. If you've 
used HOMES in a home budget program, Hiri-Scan recog- 
nizes it as HO$ (the same as the 64 and 128 does). So you 
don't have to worry about some weird variable sliding by 
your prying eyes. 

Vari-Scan can be deactivated by pressing the BACK AR- 
ROW ( — ) key. SYS 52000, or 4864, to reactivate it. 

The next time you need an instant variable check, give 
Vari-Scan a try. It's easy to use, gets the job done last, and 
keeps variable frustration at a minimum. Besides, who wants 
to do a tap dance on the keyboard? Then you couldn't use 
it as a frisbee. D 

SEE PROGRAM LISTINGS ON PAGE 64 



TEVEX Computer Software 1-800-456-1162 
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1 1 [ACCOUW^^k I ELEC. ARTS j \ EDUCATIONAL 





List! 


Our$ 


B-24 


$35 


SZ4 


Balllecrulser 


$60 


S41 


Eternal Dagger 


$40 


S2B 


Gettysburg 


$60 


S41 


Kampfgruppe 
Ponzer Strike 


$60 


S41 


$45 


331 


Phantasie III 


$40 


528 


President Elect 


$25 


S18 


Ouestron II 


§40 
$40 


328 


Realms Darkness 


S28 


Roadwar 2000 


$40 


S28 


Roadwar Europa 


$40 


S28 


Shard of Spring 


$40 


S28 


Shlloh 


$40 


$28 


Sons of Libertv 


$35 
$30 


$24 


Wargame Conslr. 


521 


War South Pacific 


$60 


$41 


Wizard's Crown 


$40 


$28 


MICROPROSE i 



Airborne Ranger 
F-15 

Gunship 
Pirates 

Silent Service 
Stealth Fighter 




EPYX 





List* 


Our I 


California Games 


$40 


$28 


Champ. Wrestling 


$40 


$23 


Destroyer 
Movie Monster 


$40 


$28 


$20 


$15 


Spy vs Spy III 


$25 


$18 


Street Sports 
Sub Battle 


$40 


$28 


$40 


$28 


IhQ..Qmss 

World Games 


$40 
$40 


$23 
323 


EPYX JOYSTICK 


$22 


315 


SSG 1 



Battlefront 

f atties Civil War 
attles Normandy 
Carriers at War 
Europe Ablaze 
Halls Montezuma 
Reach ■ Stars 
Russia 
Run S Magazine #8 



LisIS 


OurS 


$40 


323 


$40 


328 


$40 


328 


$50 


334 


$50 


334 


$40 


323 


$45 


331 


$40 


328 




$4 



Apollo 1S 
CrndShsL 
4th & Inch 



As 



itri & Inches 
Hardball 

pja$ matron 
Power at Sea 
Spy vs Spy I 4 II 
Test Drive 
The Train 



Lists 


OutS 


$30 


$21 


$30 


$21 


$30 


$21 


$30 


$21 


$15 


312 


$30 


$21 


$15 


312 


$30 


321 


$30 


$21 



ACT/VISION 



Aliens 

Champ Basketball 

Champ Football 

Labyrinth 

Last Ninja 

Maniac Mansion 



Lisl$ 
$35 
$35 
$35 
$30 
S35 
$35 



INFOCOM 



Beyond Zork 
Border Zone 
Lurking Horror 
Nord & Bert 
Sherlock 
Stall onfall 



128k 



List J 

S45 
$35 
$35 
$35 
$35 
$35 



AMIGA 



a lance of 



Balance of Power 
Breach 

Breach Scenario 
Defender - Crown 
Ferrari Formula 1 
Fire Power 



M 

Kamp 



lunt-ped October 
'or Simulator 
ampfgruppo 
log Of Chicago 



n to 



IP 
Eurooa 



oadwar 

M^ 

Silent Service 
Sinbad 
Starfleet I 
Terrorppds 
Test Drive 
Weaver Baseball 
Winter Games 



J 



Oui$ 
$24 
$24 
$24 
$21 
$24 
324 



Adv Conslr. Sol 
Age of Adv 
Amnesia 
Arctic fox 
Bard's Tale I or II 
Chess 2000 
Chuck Yeager 
Dragon's Lair 

EOS 

Legacy - Ancients 
Lords - Conquest 
Marble Madness 
Pegasus 
Skate or .Qle 
seven Cities 

Strike Fleet, 



Ouil 

$31 
$24 
S24 
S24 
$24 
S24 



Lists 


Our$ 


$15 


$12 


$15 


$12 


$40 


$28 


$33 


S23 


$40 


528 


$40 


S28 


$35 


$24 


$25 


518 


$30 


321 


$30 


321 


$15 


512 


$30 


321 


$30 


321 


$30 


321 


$15 


312 


$30 


$21 


$30 


$21 



j 



ORIGIN SYS. 



Auto Duel 
Moeblus 
Ogre 
Ultima I 
Ultima III 
Ultima IV 



ETC. 



Alt Reality • City 

AR - Dungeon 

Blue Powder 

Borodino 

Choplifter-Maglc 

Dark Horn 

Defender ■ Crown 

Echelon 

Full Count Bball 

Gauntlet 

Guderian 

High Seas 

Might & Magic 

ML Baseball 

ML Wrestling 

NBA 

Starfleet I 

Stealth Mission 

Up Periscope 

Wizardry I 

WC Leader Board 

Wooden Ships 

Wrath - Danolhunor 



LSI J 

$50 
$40 
$30 
$40 
$50 
$60 



] 



OurS 

334 
323 
$21 

523 
$34 
$41 



Lists 


OurS 


$30 


$21 


$40 


$28 


$50 


334 


$60 


342 


$15 


$12 


$35 


S24 


$35 


S?4 


$45 


$31 


$40 


$30 


$35 


324 


$30 


$21 


$50 


$34 


$40 


$28 


$40 


$28 


$30 


$21 


$40 


S28 


$40 


$28 


$50 


$34 


$30 


$21 


$40 


$28 


$40 


328 


$35 


$24 


$20 


515 



Carmen - U.S. 
Carmen - World 
Early Games 
Easy as ABC 
Facemaker 
Fraction Factory 
Kindercomp 
Math Blaster 
Pisco of Cake Math 
Reader Rabbit 
Rocky's Boots 
Speed Reader II 
Spell It 

SB Spellgrabber 
Stickybear ABC 
SB Math II 
SB Numbers 
SS Oppo sites 
SB Reading 
Word Attack 



1 



LisIS Our J 

$40 328 

$35 324 

$35 S24 

$40 S28 

$21 S15 

$30 S21 

$21 S15 

$50 $34 

$35 524 

$40 S28 

$35 524 

$50 534 

$50 334 

$30 $21 

$30 521 

$30 521 

$30 S21 

$30 521 

$30 521 

$50 S34 



PRODUCTIVITY j 

List S Our S 

Certificate Maker $40 S28 

GEOS - 64 $60 541 

GEOS-128 $70 547 

Geos Desk Pack I $35 524 

GeoCalc $50 $34 

GeoDex $40 $28 

GeoFile $50 534 

GeoProgrammer $70 542 

GeoPublisn $70 

GeoSpel) $30 321 

GeoWrlte Wkshop $50 534 

Newsroom $50 

Oulrageous Pagos $50 

Paper Clip III $50 S34 

Print Shop $45 531 

Print Shop Comp. $35 524 

Toy Shop $30 521 



ib^ 



ACCESSORIES 

Sony DSDD 5,25 $9 

Tevex DSDD w'library case 38 

Sony DSDD 3.5 520 

3-M DSDD 3.5 522 

Cleaning Kit 5.25 56 

Cleaning Kit 3.5 56 

EPYX 500 Joystick 515 

Mouse Pad 56 

Safe Strip 6 Surge Protnctor S22 

Storage Case 60 5.25 39 

Storage Case 40 3.5 S9 

Universal Printer Stand S22 



Same Day 
Shipping 

Just call before 3:30 and 
we 'II ship your order today 
by UPS. Your package is 
only days away with Tevex. 







CALL TOLL-FREE 1-800-456-1162 



FREE CATALOG WITH YOUR FIRST ORDER 
Open 9-8 Mon. - Frl. 10-5 Sat. 
Retail Store open same hours. 

Georgia residents call 404-934-5059. Whai ordering by mail send money outer. Include phone number. 

SHIPPING: Add 53.00 for shipping and handling charge. Georgia residents add 4% sales lax. Shipping for 

Canadian orders is 5% of order, with a W.00 minimum . U, S, Mail, APO & 1TO Often add 5% of order, 

with a S4.00 minimum. Shipping for til other foreign orders is 15% of order, wilh a SI 0.00 minimum. All stales are final, 

New Titles ere underlined 



2 for 1 SALE! 
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The computer can do much more than merely exe- 
cute programs. When connected to the proper 
devices, the computer can measure various char- 
acteristics of the reai world (the world outside 
of the computer's circuitry), and it can control some of those 
characteristics. In previous articles we have connected the 
computer to photo-cells, light-emitting diodes, potentiome- 
ters, and relays. This month we will use a temperature-sens- 
ing device, a thermistor, to turn the computer into a mod- 
erately accurate digital thermometer. 

Both the C-64 and the C-128 have built-in analog-to-dig- 
ital converters. These are called "A to D" or simply "A/D" 
converters. The function of an A/D converter is to receive 
an analog input signal and to convert it to a digital value. 
Specifically, the A/D converters in the Commodore com- 
puters give an integer value from to 255, which is pro- 
portional to the amount of resistance applied to their inputs. 

A TO D FUNDAMENTALS 

If you apply a short circuit between the 5 volt supply 
voltage and the A/D's input, the A/D sees a resistance of 
zero ohms and converts this to a digital value of 0. If you 
leave the input to the A/D converter unconnected or open, 
the A/D sees essentially an infinite resistance between its 
input and the 5 volt supply. Then the A/D converter gives 
the largest value it can, namely 255. 

The A/D converters in the Commodore computers give 
an output value of 1 for approximately every 10,000 ohms 
of input resistance. That is, 50,000 ohms corresponds to 
an A/D output of roughly 50. This is fairly accurate for 
resistance below 100,000 ohms and output values of less 
than 100. 

Because of different A/D input circuitry, the C-64 reaches 
its maximum value of 255 with an input resistance of roughly 
500,000 ohms, whereas the C-128 gives a maximum output 
of 255 with an input of about 250,000 ohms. Note that these 
are only "rules of thumb." Any serious application requiring 



actual resistance values must calibrate the A/D converters. 
If you need only relative values {"is the paddle turned more 
to the left or more to the right?" for example), calibration 
may not be necessary. 

Just to eliminate any confusion, I should mention that 
A/D converters generally convert analog input voltages (not 
resistance) into digital quantities. (Refer to Analog to Digital 
Adventures, October 1986 Ahoy!, for further discussion of 
A to D conversion.) Since voltage and resistance are rela- 
ted, it is appropriate and more useful to talk about input 
resistance in this application. 

CONVERSION SOFTWARE 

The A/D converters are accessed through Control Ports 
1 and 2 (the joystick ports) on the right side of the compu- 
ter. Each port can handle two resistance inputs. Normally 
game paddles are plugged into the A/D pins of these ports. 
There are only two A/D converters in the Commodore com- 
puter, but there is an electronic switch which can select the 
inputs from either Port 1 or Port 2. That way two A/D con- 
verters take care of four analog inputs. 

BASIC 7.0 in the C-128 uses the POT command to read 
the A/D converters. POT(l) and POT(2) give values corre- 
sponding to Control Port 1 inputs (closest to the front of 
the computer). POT(3) and POT(4) correspond to Control 
Port 2. 

For the C-64, you must read the A/D converters by other 
means. On page 346 of the C-64 Programmer's Reference 
Guide (PRG) is a machine language program for reading 
all four A/D ("paddle") inputs. It states that reading the pad- 
dles from BASIC is not reliable. The machine language pro- 
gram C-64 Paddle Routine on page 66 of this magazine 
is a condensed version of the PRG program which allows 
inputs only in Control Port 1. 

The procedure to perform an A/D conversion and to read 
the results is as follows: 

1. Set the electronic switch at address SDC02 (addresses 
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are in hexadecimal) to enable Port 1 or Port 2 (or both) 
inputs to the A/D converters. 

2. Wait briefly for the inputs to be converted. 

3. Read the outputs of the two A/D converters at SD419 
and SD41A. 

The remarks at the beginning of the machine language 
program provide more details. Note that interrupts must 
be disabled. The Complex Interface Adapter (CIA) chip 
has pins which can be inputs or outputs. Two of its pins 
(PA7 and PA6) are tied to the electronic switch. The Data 
Direction Register (DDR) of the CIA at address SDCOO 
must be programmed so that those two pins are outputs. 
Then l's are written to those two pins to close the switches 
and bring the Control Port paddle signals to the A/D con- 
verters. 

This machine language program enables the inputs from 
both Port 1 and Port 2, although only Port 1 will be used. 
The A/D converters are part of the Sound Interface De- 
vice (SID) chip. They continuously convert whatever in- 
put is available. If nothing is plugged into cither control 
port, the A/D converters see infinite resistance and give 
values of 255. 

Although the PRG says BASIC is not reliable, I have found 
that these statements work nearly as well as the machine 
language routine: 

PRINT PEEK( 54297) 



PRINT PEEK(54298) 



for each) to pin 9 and pin 7 of the 9-pin connector. Pin 
9 is the POT X (paddle) input, and pin 7 is 5 volts. For 
convenience, you may twist the wires together. 

Thermistors come in a variety of sizes and shapes. The 
one listed above is a small bead about the size of a pencil 
tip. Thermistors have two wire leads attached to them. The 
two leads of the thermistor are soldered to the other ends 
of the wire. It doesn't matter which wire goes to which lead 
of the thermistor. The schematic of the finished apparatus 
is in Figure 1. 

Before using the thermistor with the program we will dis- 
cuss, you must make its leads waterproof. Daub some epoxy, 
silicone glue, or other waterproof glue around the leads of 
the thermistor and the ends of the wire to which they are 
soldered. Don't coat the body of the thermistor itself any 
more than necessary to seal the leads. (Be sure the leads 
are not touching each other.) 

PLUG IT IN 

After constructing the thermistor apparatus, plug it into 
Control Port 1 (the joystick port on the right side of the 
computer, the one closer to the front of the computer). 

Remember that computer chips connected to pins on the 
Control Port connectors are static-sensitive. Chips in the 
computer can be damaged by electrostatic discharge. Dis- 
charge yourself by touching something metal before con- 
necting or disconnecting anything (joysticks included) at 
these connectors. Don't use your computer in a very dry, 
static-prone environment without proper precautions. 



CONNECTOR 
(viewed from solder side) 



Figure 1 
Thermistor Attached to Control Port Connector 
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They read the SID chip's A/D registers at $D419 and $D41A. 
The first address is for the A/D converter for input resis- 
tance between pin 7 (5 volts) and pin 9 (POT X) of the 
control port connector. The second address is the A/D con- 
verter which measures resistance between pin 7 (5 volts) 
and pin 5 (POT Y). Here TOT* stands for "potentiome- 
ter," which is a variable resistor. 

HARDWARE PREPARATION 

You need less than $5 worth of parts to convert your com- 
puter into a digital thermometer: 

1. Subminiature D 9-pin female connector (Radio Shack 
276-1538 or equivalent). 

2. Thermistor (Radio Shack 271-110 or any other with at 
least 10,000 ohms at 25 degrees C). 

3. Wire: any length. 20 to 24 gauge, 

4. Epoxy or waterproof glue. 

Solder two equal lengths of wire (I used about four feet 
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Turn on the computer and enter this quick program: 



C-64 VERSION: 

10 PRINT PEEK(54297), 



GOTO 10 



or 



C-128 VERSION: 

10 PRINT P0T(1), 



GOTO 10 



You should see a series of very close numbers, typically 
about 15 for the thermistor listed above at room tempera- 
ture (70 degrees Fahrenheit). Those numbers are the digi- 
tal outputs from the A/D converter as it measures the re- 
sistance of the thermistor. 

If you get very erratic numbers, or all zeros, or all 255's, 
then something is wrong. All zeros means that either the 



wires or thermistor leads are shorted together (touching). 
Look closely at both ends of the wires and check the con- 
nector for solder bridges. 

All 255"s means that cither the wires arc not well-sol- 
dered to the connector or to the thermistor, or the connec- 
tor is not plugged into the computer connector firmly, or 
the thermistor is open-circuited (faulty), or the connector 
is plugged into the wrong control port. 

If you see very random numbers, make sure you are 
plugged into Port 1. Turn your computer off, then back on, 
and reenter the program (make sure some other programs 
in the computer arc not interfering with the thermistor - 
this would be a problem with only the C-64 version). 

THE THERMISTOR 

If all went well, the number repeatedly displayed is a digi- 
tal representation of the thermistor's resistance. Squeeze the 
thermistor in your hand. You should sec the value on the 
screen change. It should decrease since the resistance of 
a thermistor decreases as the temperature rises. Notice that 
the value on the screen gradually changes to the new value. 
It takes a while for the thermistor to change temperature. 

The advantages of the thermistor for our application are 
that it is a resistive device (unlike a thermocouple which 
is a voltage device), it is inexpensive (unlike a platinum 
Resistive Temperature Device or RTD), and it has a rela- 
tively large thermal sensitivity (its resistance changes by 
a factor of ten or more for a one hundred degree tempera- 
ture change). 

The disadvantage of a thermistor is that it is very non- 
linear. This means that its resistance does not change uni- 



formly with temperature. In fact, the relation between re- 
sistance and temperature for a thermistor is given by this 
equation: 

I/T2 = l/TO + 1/B * LN(R2/R0) 

If the thermistors resistance RO is known at a certain tem- 
perature TO, and if a calibration constant B is known for 
the thermistor, then any other temperature T2 may be calcu- 
lated from the above formula by measuring R2, the ther- 
mistor's resistance at that temperature. Note that LN is the 
natural logarithm function given by LOG in BASIC. Also 
note that temperatures must be given in degrees Kelvin. 
More on that later. 

As we have seen, our computer has the ability to mea- 
sure the thermistor's resistance. We will also let the com- 
puter perform the calculations in the formula to tell us the 
new temperature. 

CALIBRATION CAN BE FUN 

We must measure the thermistor's resistance at two dif- 
ferent btcnm temperatures in order to calculate B, the 
calibration constant. The procedure we will use is this: 

1. Measure resistance Rl at room temperature Tl. 

2. Measure resistance RO at ice water temperature TO. 

3. Calculate B, derived from the previous equation, since 
Tl and TO are known: 

B = LN(R1/R0) / (1/T1 - 1/TO) 

You could use any two temperatures, but these are easy to 
obtain. 
Once the computer determines the calibration constant 
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B, the thermistor can be used to measure any other unknown 
temperatures. The computer will determine any new temper- 
ature T2 with this procedure: 

1. Measure resistance R2 at the new temperature. 

2. Calculate the new temperature T2: 

T2 = 1 / I (1/TO) + (1/B) * LN(R2/R0) J 

Notice that since this formula depends upon the ratio of 
the two resistances, it doesn't matter what units they are 
measured in as long as they are the same. We will use ar- 
bitrary Commodore A/D converter units for measuring re- 
sistance. Temperatures must be in degrees Kelvin. 

PUT IT ALL TOGETHER 

If all the preceding has seemed too complicated, fear not. 
The program TJierrnal Connection on page 66 takes care 
of all the difficulties. Before you run this program you must 

1) find out what your room temperature is (use a ther- 
mometer or look at your thermostat) and 

2) put some cold water along with some ice cubes or 
crushed ice into a dish and set it where your thermistor 
plugged into the computer can reach it. 

Plug the thermistor into Control Port I and run the pro- 
gram. Note that C-64 users must change lines 100, 1020, 
and 2030 as shown in lines 5001-5003. Also, C-64 users 
must add line 11 (shown in line 5000) and add lines 5010- 
49184. These changes for the C-64 replace the POT{l) func- 
tion of the C-128. 

The program asks if you already know the calibration 
constants for the thermistor. If you reply "N" to indicate 
that you don't know them, the program starts the calibra- 
tion process beginning at line 3070. You must have the ther- 
mistor at room temperature (or any other known tempera- 
ture except the freezing point of water). Enter that temper- 
ature in degrees Fahrenheit. (The computer will convert 
it to degrees Kelvin in line 3180.) 

The program calls the routine at line 1010. You will see 
a display on the screen similar to the earlier test of the ther- 
mistor. Once the numbers appear to have settled to one or 
two values, press any key. The program calls the routine 
at line 2010 to read and average the next ten resistance read- 
ings. This value is Rl, which corresponds to your room 
temperature Tl. 

Now you are instructed to put the thermistor into the ice 
water. The computer assumes its temperature TO is 32 de- 
grees F. Press any key to see the new A/D values on the 
screen. You should see them gradually increase until they 
reach some steatly level. Again press any key once the num- 
bers appear to have settled to one or two values. The com- 
puter averages the next ten readings and calls the result R0, 
corresponding to TO. 

The computer has all the information to calculate the cal- 
ibration constant B in line 3200. The values of B, TO, and 
R0 are then shown on the screen. You should write them 
down. That way, the next lime you run the program you 
can enter them manually rather than going through the cal- 
ibration process again. (My values with the listed thermis- 
tor are typically B=2884, T0=273, and R0=29. Room tem- 
perature Tl of 293 degrees K (68 degrees F) gives an A/D 
reading Rl of 15.) 

Press any key once you have recorded the calibration con- 
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stants. You are returned to the main loop at line 100 which 
repeatedly reads the thermistor's resistance R and converts 
it to a temperature T in degrees Kelvin in line 110. 

There are four user-defined functions beginning at line 
20. FNR takes any number and properly rounds it off to 
one decimal place. FNK2F ("K to F") takes a temperature 
in degrees Kelvin and converts it to degrees Fahrenheit. 
FNF2K converts degrees Fahrenheit to degrees Kelvin. FNT 
is the basic thermistor formula which converts resistance 
into temperature in degrees Kelvin. 

Line 120 converts the calculated temperature to degrees 
Fahrenheit, rounds it off, and displays it. Line 130 con- 
verts degrees Kelvin to degrees Celsius (TC = TK - 273), 
rounds it off, and displays it as well . The Kelvin tempera- 
ture scale is sometimes called the "absolute" temperature 
scale since degrees Kelvin is absolute zero -the lowest 
possible temperature. 

ON YOUR OWN 

Even though the temperature is displayed to the nearest 
tenth of a degree, the thermistor and the A/D converter in 
the computer do not really provide that resolution or ac- 
curacy. You will notice that at higher temperatures such as 
130 degrees F (holding the thermistor near a light bulb), 
the readings jump by as much as 20 degrees at a time. This 
is because a difference of one in the A/D reading corre- 
sponds to 20 degrees in this temperature range. The reso- 
lution is even worse at higher temperatures, but it is still 
adequate for many applications. 

You can write a program to monitor the temperature ev- 
ery fifteen minutes and to graph the results. You might have 
the computer generate an alarm sound whenever the temper- 
ature exceeds a specified range. Data logging and remote 
sensing are just two of the advantages of using your com- 
puter as a thermometer. 

A second thermistor can be easily added to Control Port 
1. Add another wire to pin 7 (5 volts) and a wire to pin 
5 (POT Y). In Thermal Connection read the second ther- 
mistor with PEEK(252) instead of PEEK(252) for the Com- 
modore 64, or use POT(2) for the Commodore 128. It is 
possible to connect and read as many as four thermistors 
at once, but C-64 owners should use the four-paddle pro- 
gram given in the Programmer's Reference Guide if more 
than two are used. 

You can measure relative humidity with two thermistors. 
Wrap one in a cotton wick and keep it wet. Spin it rapidly 
overhead in a medium-sized circle and record the temper- 
ature. Leave I he other one dry and record its temperature. 
The temperature difference between the two is because of 
the evaporation rate from the wet one, and that depends 
upon the relative humidity. A book on meteorology or psy- 
chrometry will show you how to convert the temperature 
difference into relative humidity. 

Let me know what other applications you come up with. 
Hmmm. I wonder how cold the rock salt and ice makes 
my ice cream freezer. I wonder if my old 1541 disk drive 
is really hot enough to melt steel. 1 wonder how well my 
attic insulation works. I wonder how much the tempera- 
ture in my refrigerator varies throughout the day. How did 
I ever manage without a computer-based thermometer? Q 
SEE PROGRAM LISTINGS ON PAGE 66 





For the C-128 
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A well-placed window can give a C-128 BASIC 
program a very sophisticated look. The 
WINDOW statement in BASIC 7.0, however, 
is essentially a no-frills command . Window 
Dressing provides four routines to enhance your text screen 
displays. Program 1 POKEs the machine language for Win- 
dow Dressing into location 4864. It can be located else- 
where by changing the variable SA in line 110, The pro- 
gram uses 247 bytes plus 200 bytes for storage immediate- 
ly after the ML, The four routines are accessed with SYS 
statements. If SA is the start address, then FRAME=SA, 
AT=SA+3, CR=SA+6, and ED=SA+9. 

WINDOW FRAME 

Calling FRAME quickly prints a neat box around the 
perimeter of the current window and (optionally) a head- 
ing at the top of the box. A window is then opened inside 
the box. Your WINDOW statement should therefore open 
a window two columns wider and two rows taller than 

needed. The syntax is SYS FRAME [ heading]. The 

five commas must be present if a heading is called for. The 
routine uses the current character color and mode (normal 
or reverse) for the frame. The characters used are COM- 
MODORE A, SHIFT * and COMMODORE S for the top, 
SHIFT-, cursor right, and SHIFT - for the sides, and 
COMMODORE Z, SHIFT * and COMMODORE X for 
the bottom. These characters were chosen because they ap- 
pear the same in uppercase/graphics or upper/lower case. 
They can be changed. 

The heading can be anything PRINTable: string or num- 
eric variables or literals, color changes, cursor controls, 
etc. The heading begins at the upper left corner of the frame. 
Start the heading with a cursor right if you don't want to 
overwrite the corner character. There is no error checking 
of the length of the heading versus the width of the win- 
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dow. If the heading is a string variable, the LEN and 
RWINDOW(l) functions can be used to determine if the 
heading is too long for the window's width. Note that RWIN- 
DOW(0) and (1) return the number of rows or columns mi- 
nus one. 

Once the inner window is opened, the routine performs 
a "dummy" PRINT. This turns off reverse printing if it was 
enabled. 

PRINT AT AND CURSOR RESTORE 

While CHAR can be used as a form of PRINTAT on 
a text screen, there are a few problems with this. The CHAR 
statement will only print characters within quotes or string 
variables. Numeric values must first be converted to strings 
using STRS. Strings must be concatendated if you want to 
include more than one in a CHAR statement. CHAR0,5, 
10,M$;H$ causes a SYNTAX error. Once CHAR has moved 
the cursor, it cannot easily be returned to where it came 
from. Early versions of the C-128 ROMs have a bug when 
CHAR is used in 80 columns. 

The Kemal PLOT routine at 65520 (or 49176) could be 
used to move the cursor to a selected row and column be- 
fore a PRINT statement. The "AT" routine provides a few 
enhancements to this approach: 

SYS AT, flag, row, column [,, string] 

The first value, flag, determines whether the cursor will 
be returned to where it was before SYS AT. This parame- 
ter cannot be omitted. If 0, the cursor is restored. Any val- 
ue from 1 to 255 defers cursor restoration. The cursor po- 
sition is saved, but will not be restored until SYS CR. This 
allows us to follow SYS AT with multiple PRINT statements 
before returning the cursor to its original position, if at all. 
Row and column refer to the current window dimensions. 
Note that these are in a different order than that used by 
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CHAR. If row or column are beyond the dimensions of 
the current window, AT returns with ILLEGAL QUAN- 
TITY. Error messages for this routine and the next can be 
turned off by POKEing any non-zero value into SA +21. 
Your program could use RWINDOW(O) or (1) to determine 
the window dimensions and make corrections if an upcom- 
ing row or column will be out of range. 

The double commas preceding "string" must be present. 
String is anything PRINTable, including ESC codes. Al- 
though there are routines in ROM to save and restore the 
cursor position, these are used by a number of ESC char- 
acters. If AT were to use these routines, certain ESC codes 
in the AT siring would destroy the previous cursor posi- 
tion. The AT routine stores the cursor column and row in 
more secure locations (SA+22 and 23). SYS CR restores 
the cursor to where it was before the most recent SYS AT 

ED 

A number of locations in zero-page and page three keep 
track of the screen dimensions, character color, cursor lo- 
cation, where the tab positions are, and which screen lines 
are linked or continued from the previous line. These val- 
ues are called the Screen Editor variables. The final rou- 
tine saves and recalls five sets of editor values: 



SYS ED, set, dir 

where "set" is - 3 and "dir" is to save, and any non-zero 
value to recall. This will allow a program to jump from 
window to window, printing menus, receiving INPUT, or 
resuming PRINT where il left off. For four sets of editor 
values, the routine uses 200 bytes immediately following 
the ML. Storage can be moved elsewhere. Note thai the 
contents of the screen are not saved— only those parame- 
ters mentioned above. 

THE DEMO AND ALTERATIONS 

Program 2 demonstrates usage of the Window Dressing 
routines. It assumes thai the ML is located at address 4864. 
Change the value of SA in line 520 if Window Dressing 
is located elsewhere. The program determines which screen 
is in effect using RWINDOW{2) in line 510, and adjusts 
itself to 40 or 80 columns. In line 530, alternative frame 
characters are defined. The codes for these characters arc 
POKEd into the cassette buffer. When needed, the FRAME 
routine is altered to use these characters by POKEing SA 
+ 172 and 173 with the low byte and high byte of the first 
address of the new characters. (POINTER cannot be used 
for this because the characters must be in RAM with the 



10 SYS700 
20 .OPT P,00 


Source Code for Window Dressing 


30 *- $1300 
SO ; 


Compiled in 64 mode using the PAL assembler (Pro- 


line, Inc.) 


wi . WINDOW DRFSSING 


500 DEC $E4 


960 PRTIT INX 




J 1 J t -■ i-_-._i._l u LiJ.U\JwW l-rn4__? J 1-llVJ 


60 ; 


510 DEC $E7; INSIDE THE FRAME 


970 LDA FRAME, X 




70 CHRGOT = $0386 


520 JSR $CA32;CLS SCREES LINKS 


9B0 JMP JCOOC; PRINT CHR 


IN A . RTS 


80 ; 


530 JMP SC76F; PRINT RETURN B RTS 


990 ; 




90 ; ENTRY POINTS 


540 ; 


1000 LINK STX $C3 




100 ; 


550 PRTAT PHA; RESTORE CURSOR IF A-0 


1010 TAY 




110 CLV:BVC BECIN;DRAW WINDOW FRAME 


560 LDA $_C 


1020 LDA KAREA 




120 ; 


570 STA TEMP; SAVE CRSR POS 


1030 LDX #>AREA 




130 CLV.BVC PRTAT;PRINT AT 


580 LDA SEB 


1040 CLC 




140 ; 


590 STA TEMP+1 


1050 ADC ADDTBL, Y 




150 CLViBVC RSTCRS; RESTORE CURSOR 


600 MOVEIT CLC;WILL MOVE CRSR 


1060 BCC LINK 




160 j 


610 JSR $C018 ; CALL PLOT, X-ROW, Y-COL 


1070 INX 




170 CLV:BVC LINKS; SAVE/RECALL ED VALS 


620 BCS ERR1;IF X 8 Y INVALID 


1080 LINK LDY SC3 




180 ; 


630 JSR CHKSTR 


1090 STA SC3 




190 FRAME .ASC "[c A][s *][c S][a -][RI 


640 PLA;CET ACCUML 


HOT; STX $04 




GHT][s -][c Z][- *][c X]"; FRAME CHRS 


650 BEQ RSTCRS 


1110 LDX #$1A 




200 ERRENB .BYT 0;ERR MSG ENABLED 


660 DONEPLOT RTS 


1120 TYA 




210 TEMP .BYT 0,0; HOLDS CRSR R0W/C0L 


670 ERR1 PU 


1130 BNE LINK 




220 ADDTBL .BYT 0,40,80, 120, 160; USED TO 


680 ERRMSG LDA EHRENB:IF ZERO PRINT MESS 


1140 LDY #$25 




CALCULATE STORAGE LOCATION 


AGE 


1150 I.INK4 DEY 




230 ; 


690 BNE DONEPLOT 


1160 LDA $E0,X 




240 BEGIN JSR $C150;CRSR HOME 


700 JMP S7D28;ILLQTY 


1170 STA ($C3),Y 




250 IDA $F8 


710 ; 


1180 DEX 




260 STA $CF;SAVE SCROLL FLAG 


720 LINKS CMP #$05 


1190 BPL LINK4 




270 JSR $CAE5; DISABLE SCROLL 


730 BCC L1NK2 


1200 LDX »$0D 




280 LDX #$FF 


740 BCS ERRMSG 


1210 LINK DEY 




290 JSR FRPRT 


750 : 


1220 LDA $0354, X 




300 LDY.$E5;GET TOP ROW 


760 RSTCRS LDA TEMP 


1230 STA ($C3J,Y 




310 IKY 


770 STA $EC 


1240 DEX 




320 STY SCE 


780 LDA TEMP+1 


1250 BPL LINKS 




330 LFTEDG JSR FRPRT; START AT LEFT EDGE 


790 STA $EB 


1260 RTS 




340 INC $CE 


800 JMP $C15C;SET POINTERS 


1270 ; 




350 LDY SCE 


810 ; 


1280 LINK6 LDY #$25 




360 CPY SE4;HAVE WE REACHED BOTTOM"?" 


820 CHKSTR JSR CHRGOT; PRINT ANYTHING"?" 


1290 LINK? DEY 




370 BEQ, BOTTOM 


830 BEQ DONEPLOT;NG 


1300 LDA (SC3),Y 




380 DEX 


840 JSR $795C;CHK COMMA 


1310 STA SEO.X 




390 DEX 


850 JMP $555A;PRT STRING 


1320 DEX 




400 DEX 


860 ; 


1330 BPL LINK? 




410 BNE LFTEDG 


870 FRPRT JSR PRTITjLEFT EDGE 


1340 LDX #$0D 




420 BOTTOM JSR FRPRT 


880 LDY SE6;LEFT COL. 


1350 LINK8 DEY 




430 JSR $C354jCRSR RT MOVES TO HOME 


890 IKY 


1360 LDA ($C3),Y 




440 JSR CHKSTR; PRINT ANY HEADING 


900 INX 


1370 STA $0354, X 




450 LDA $CF 


910 CENT JSR PRTTT+1; CENTER 


1380 DEX 




460 STA SF8; RESTORE SCROLL FLAG 


920 1NY 


1390 BPL LINKS 




470 ; 


930 CPY $E7;RIGHT COL 


1400 RTS 




480 SMALL INC SE5 


940 BNE CENT 


1410 ; 




490 INC $E6;0PEN A WIKDOW 


950 i 


1420 AREA .BYT 0; EDITOR STORAGE BEGINS 
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SERVING 80 COLUMN SCREENS 

The memory-moving feature of TextSave (January 
1988) can be combined with SYS ED to save and recall 
two 80 column screens. In this way, you could save the 
screen, open a window, and then recall the screen, replac- 
ing what was overwritten by the window. 

First, some memory must be set aside in RAM to 
hold the 4K of each 80 column screen: 

GRAPHIC 1: GRAPHIC 

sets aside 9K of memory beginning to address 7168 nor- 
mally used for a bit map display This area will be safe 
until a GRAPHIC CLR command. The BASIC subrou- 
tine to save/recall 80 columns should look something 
like this: 

2000 POKE 195,0: POKE 196, SH: POKE 174 

,0: POKE 175, EH 

2010 SYS TS+236,0,0,D1: SYS ED,S,D2: R 

ETURN 

Line 2000 sets up the start and end address (+1) in RAM 
for TextSave to move. "SH" is the start address div- 
ided by 256 and "EH" is 4096 bytes higher, also divided 
by 256. In line 2010, TS" is the start address of Text- 
Save and 0, 0, tells the routine to start at address in 
VDC memory, the normal location of 80 column text. 
Direction Dl is to move data to 80 column memory 
and D2 is > to restore screen editor values. To save 
an 80 column screen, Dl is > and D2 = 0. "S" is 
the set of editor values. It's up to you to keep track of 
which set goes with which display. 

ML.) The default characters can also be changed by POKE- 
ing new codes into SA + 12 through SA + 20 in the order 
described earlier. 

In line 340, SYS 52591 calls a ROM routine to turn on 
the cursor. This provides a cursor for use with GET or GET- 
KEY as an alternative to INPUT The cursor is turned off 
by calling another ROM routine at location 52639 with 32 
in the accumulator. 

To change the location of editor storage, POKE the low 
byte and high byte of the storage address into SA + 181 
and SA + 183. Each set requires 40 bytes. If error mes- 
sages are disabled as described earlier, storage can be in 
RAM above 16383, The computer must be in the BANK 
configuration in this case, before SYS ED. For the other 
routines, the C-128 must be in BANK 15 since several ROM 
routines are used. "AT" and "ED" set the processor carry 
flag if any values are out of range, so RREG,,,SR, imme- 
diately after the SYS, reads the status register into SR. IF 
SR AND 1 = 1 THEN something went wrong. 

If error messages are enabled, the TRAP statement of 
BASIC 7.0 can be used to prevent ILLEGAL QUANTITY 
from messing up your screen. Note that parameters great- 
er than 255, or strings where numbers should be, cause 
SYS to return with the appropriate error message regard- 
less of the condition of the Window Dressing error mes- 
sage flag. □ SEE PROGRAM LISTING ON PAGE 69 



Send your comments on any aspect of Commodore com- 
puting to Flotsam, c/o Ahoy!, Ion International Inc., 45 
West 34th Street -Suite 500, New York, NY 10001. 

I would like to thank you for the past few years of very 
good reading. The magazine is well-balanced, with a wide 
variety of articles. It seems to cover all the different as- 
pects of Commodore computing, not to mention the talented 
writers. Of course, 1 do have a complaint or two. I don't 
feel that the average Commodore user is that interested in 
COMAL. This section could possibly be used to teach beg- 
ginners BASIC, ML, everyday commands, etc. 

I am an average user who is eager to learn in a non-com- 
plicated way Gike most people I talk to). Between work and 
life's other necessities, I don't have the time to study as much 
as I should, so I like your magazine and its quick tips. Again, 
thank you for making computing on my C-128 less frustrat- 
ing and more enjoyable. —John Burke 

Rosedale, NY 

We began our COMAL Column because we felt the lan- 
guage had not received the press it deserved. But space, 
as you indicate, is at a premium. As of the next installment 
(September), COMAL coverage will cease for the time being. 

There is very little software available for the C-128 in 
its 128 mode, and there appears to be little on the horizon. 
Therefore, when Ahoy! publishes a program for the 128 that 
uses some of the great characteristics of the machine, 128 
owners are naturally very enthusiastic. 

I recently read that Commodore had sold one million 
C-128's. That is a large number for potential sales of soft- 
ware and is generally being ignored by the software houses. 
However, there is a possible alternative. If Ahoy! were to 
publish a special issue on a yearly basis dedicated only to 
the C-128, 1 believe that C-128 owners would feel that they 
had died and gone to heaven and would make such a venture 
a huge success. With Blakemore, Rupert, et al, you certainly 
have the talent to put it over. -Neal Smith 

Rochester, NY 

We'd love to do as you suggest, Neal. But remember the 
Aesop's fable about the man with the donkey? See below. 

I first became interested in your mag because of Tips 
Ahoy! As a relatively new Commodore owner, I was hungry 
for programming hints and tricks. I was satisfied for awhile, 
but it seems lately you've been allotting an unproportion- 
ate amount of space to the 128 user. Please don't assume 
that just because breakthroughs in computer technology have 
been advancing at phenomenal rates that all of us 64 own- 
ers have been experiencing the same phenomenon with re- 
gards to our salaries. Heck, there are a lot of us that haven't 
even utilized the potential of our 64's yet. I don't think your 
readers would mind a couple fewer game programs if it 
meant expanding your more useful columns (i.e., Tips Aiioy! 
and Flotsam). -Tom Rowan 

Ft. Wayne, IN 
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Send your besl programming and hardware hints for the 
C-64, C-128, or Amiga to Tips Ahoy!, c/o Ion Interna- 
tional Inc., 45 W. 34th St.-Suite 500, New York, NY 
10001. Include a stamped and self-addressed envelope. 

LET YOUR FUNCTION KEYS ESCAPE 

The Commodore 128 has numerous useful and entertain- 
ing ESC-key combinations, some of which are so darn good 
you wonder why Commodore didn't put a specific key for 
them right on the keyboard. ESC-D, for instance: that one 
deletes one line on the screen, moving all the text after it 
up one line. I use it all the time! But I'm lazy, and abso- 
lutely hate having to press two keys to do anything. So in 
the interest of cutting my typing in half: 

KEY7,CHR$(27)+"D" 

Now when F7 gets pressed, it does the same thing as 
an ESC-D. Follow that up with: 

KEY8,CHR$(27)+"I" 

and pressing F8 inserts a line. I know, I know, we're back 
up to two keypresses, SHIFT plus F7, but now they're in 
the same comer of the keyboard. (And easier to find at 
3:00 a.m.!) After all, they're related functions, right? Now 
try these: 

KEY1,CHR$(27)+"A"+CHR$(27)+"E" :REM AUTO 
INSERT ON, CURSOR FLASH OFF 
KEY2,CHR$(27)+"C"+CHR$(27)+ ,, F" :REM AUTO 
INSERT OFF, CURSOR FLASH ON 
KEY3,CHR$(27)+"V" :REM SCROLL TEXT UP ON 
E LINE 

KEY4,CHR$(27)+"W" :REM SCROLL TEXT DOWN 
ONE LINE 

Nothing fancy, just some more "related" ESC codes and 
suggested function keys to store them in. If you really like 
a particular sequence, you can preserve it forever by typing 
a line number before the KEY command: 

1000 C0L0R0,1:C0L0R4,12 

1010 KEY5,CHR$(27)+"T" :REM SET UPPER LE 

FT CORNER OF WINDOW 

1020 KEY6,CHR$(27)+"B" :REM SET LOWER RI 

GHT CORNER OF WINDOW 

I have a more elaborate version of that little program saved 
on my main C-128 programming disk, named "KEYS". The 
first thing I do when I turn on my 128 is type RUN"KEYS" 
and all my favorite function key combos are restored, along 
with a pleasing screen color. You can build tremendously 
elaborate ESC-key combos into the function keys. 

— David F. Paulsen 
Houston, TX 
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RIPPLES 

This short program for the C-64 and C-128 plots several 
concentric circles in extended background mode, then cy- 
cles through the different registers to give the illusion of 
motion. It takes about five minutes to plot all the circles, 
so be patient. This is one of those deals where the display 
looks good, but it's left up to you to find a good application. 

-Cleveland M. Blakemore 

•10 REM RIPPLES FOR THE C-64 OR C-128 
■20 V=53248:N=6.3:H=20:W=12:M=19:U=1:L=.5 

:K=4O:B=1024:J==24:G=64:S=32:OF=54272 
•30 PRINT" [CLEAR]" : P0KE53281, .:P0KE53280, 

. : P0KE53265 , PEEK(53265)0R64 
•40 P0KEV+34,l:P0KEV+35,12:P0KEv+36,ll 

• 50 E=30/25 : C=l : F0RR=MT0USTEP-U 

•60 FORT=.T0NSTEP(U/(R+R)):X=INT(E*R*C0S( 
T)+H+L) : Y=INT(R*SIN(T)+W+L) 

• 70 P=Y*K+X+B : IFX> . ANDX<KANDY> . ANDY<JTHEN 
P0KEP,S+G*C 

•80 NEXT: C=C+U+(C=3)*3: NEXT 

• 90 P0KEV+34 , 0: P0KEV+35 , : P0KEV+36 , 6 

• 100 A=PEEK(V+34) :B=PEEK(V+35) : C=PEfiK(V+3 
6) : POKEV+34 , B: P0KEV+35 , C : P0KEV+36 , A 

• 1 10 F0RX= .T060: NEXT : GOT0100 

SPLIT FACE 

Split Face scrolls half the screen left and the other half 
right. All character colors are maintained as your screen 
takes on a split personality. Now you have a clear screen 
that's ready for your next title, menu, or graphics display. 

Append Split Face to your own programs and have them 
run the loader to POKE the data into memory. It works 
on the C-64 and C-128 in 40 column mode. Whenever you 
want Split Face to drop the hatchet, enter the following: 

100 SYS 49152 

For the C-128 it would be: 

100 SYS 4864 

The line numbers are only examples. You can use any line 
number you want. 

To demonstrate, run the loader. Now list the program to 
fill the screen. Cursor to the top and enter in direct mode 
(no line number): 

SYS 49152 

(SYS 4864 for the C-128), then press RETURN. Your char- 
acters will split like a knife through butter. 
Split Face can be relocated by changing the variable A 



#2- FEB. '84 Illustrated tour of the 1541! 
Artificial intelligence! Synapse's Ihor Wolosen- 
ko interviewed! Siting (unctions! And ready] 
lo enler: Music Maker Part II 1 Screen Manip- 
ulation 1 Night Attack! Relative Files! 



BACK ISSUES OF \llO>! 



#8— AUG. '84 Choosing a word proces- 
sor! Computational wizardry! Creating your 
own word games! Sound on the 64! And 
ready to enter: Micro-Minder! Directory As- 
sistance! The Terrible Twins' Words Worth! 



S3- MAR. '84 Anatomy of Ihe 64! Pjiilter 
interfacing for VIC & 64! Educational software 
series begins! VIC game buyer's guide! And 
ready to enter: Address Book' Space Lanes 1 
Random Files on the 64! Dynamic Pov.er' 



#9 — SEPT. '84 Program your own text ad- 
venture! BjilM 3 C-M Safljjffl laJBdaCji Vid- 
eo RAMI Word processors, part II! And ready 
to enter: Salvage Diver! DOS! Sound Explorer! 
The Castle of Darkness! Base Conversions! 



'5 — MAY '84 Future ol Commodore! In- 

[ide BASIC storage! Memory management on 

le VIC & 64! Guide to spreadsheets! Hurray 

(or arrays! And ready to enter: Math Master! 

'Air Assaull' Biorhythms! VtC Calculator! 



#10 -OCT. '84 C-64 graphics programs 1 
Bit-mapped graphics! Joystick programming! 
Graphics processing! And ready to enter: VIC 
40 Column Operating System! BAM Read S 
Print! Emerald Elephant! Lawn Job! 



#7- JULY '84 MSD dual disk drive! Data- 
base buyer's guide! Training your cursor 1 
Screen displays! File Sleuth! Users Groups! 
And ready lo enter: Renumbering! Checklist! 
Math Defender! Brisk! What's My Job? 



#11 — NOV, '84 Music programs & key- 
boards for the 64! Graphics feature contin- 
ues! 2-D arrays! And ready to enter: PTE word 
processor! Block Editor! Alternate Character 
Set for the 64! Tunnel of Tomachon! 



#12- DEC. '84 Buyers guide to printers' 
1525 printer tutorial 1 FajLorsflcs with cus- 
tom charadQfgjO (Mfflno KMMM Pas- 
cal! DivingnnTo BASIC! And ready to enter: 
Construction Co.! Space Patrol! Cross Ret! 



#13 -JAN. '85 VIC and 64 OS exposed! 
Sprites! Insert a 1541 device * disconnect 
switch! Ghostbusters' And ready to enter: Ul- 
tra Mail! Music Tutorl Jutcfrto-Advejityrelafld! 
Mid print I To the Top ( Tape/Disk TransferTJ 



#14- FEB. '85 Printer interfacing' Multi- 
color spriles' Modems! Bulletin Boards' The- 
ory of game design! Buying a modem! And 
ready to enler: Fulurewar! Fontasia! VIC Era- 
ser! Insurance Agent! Flankspeed! Teleiink 64! 



#15— MAR. '85 Creating multiscreen 
gameboarrJs! Inside the Plus/4! Commodore 
DOS! And ready lo enter: Old Routine' Pro- 
grammable Funclions! Automatic Line Nos.l 
Home Budget' Salmon Run! Numerology! 



#16-APR. '85 Assembly language col- 
umn begins! Programming the joystick! 1541 
disk drive alternatives' The Kemal! And ready 
to enter: Hop Around! Fasier 64! Bocter 1 Ele- 
check! BASIC Trace' Space Hunt! 



#17- MAY '85 Disk drive enhancements! 
Install a reset switch! Assembler escapades! 
And ready to enter: Super Duper! Two-Col- 
umn Directory! DSKDU! Raid! DOS Plus! Font 
Editor! Tile Time! Interrupt Wedge' 



#1B-JUNE '85 Music 8 graphics eniry 
system! How modems work! tnside the 6510! 
And ready to enter: Quad-Print! Mapping 4.4! 
Towers ol Hanoi! Speedy! Duck Shoot! Bit 
Dumping* Screen Magic! 6510 Simulator! 



#19-JULY '85 PROM Programming! 
3-part harmonies on VIC/64! Speeding pixels! 
And ready to enter: Auto-Append! Script Anal- 
ysis! Wizard of Im! Lucky Lottery! Brainframe! 
Etch! Primal' Auios: Leasing v. Buying' 



#20 -AUG. "85 tnside the 138! Real-world 
simulations! Sound effects! Modems! And 
ready to enter; Windows! Formatter! Sound- 
a-Rama! Screen Dumpl S electa chrome! Dis- 
integrator! Fidgits! Gators N Snakes! 



#21 -SEP. '85 Inside the 1571 drive and 
128 keyboard! Sprile programming! And 
ready to enter: Fastnew! Go-lister! File Lock! 
Dragon Type! Superhero I Auto -Gen! Moxey's 
Porch! Fish Math I AhoylDoc'x! Invective! 



#22 — OCT. "85 Create cartoon characters! 
Inflnilesimal intrigue! Secrets of copy protec- 
tion! And ready to enter: Sholgun! Maestro! 
Solilaire! Mystery al Mycroft Mewsl Gravi- 
nauts! 1541 Cleaning Utility! Shadey Dumpl 



#23 — NOV. '85 Guide to adventure gam- 
ing! ML sprite manipulation! BASIC lor begin- 
ners! And ready to enter: Lightning Loader! 
Knight's Tour! Chopper Flight! Rhythmic Bits! 
Instani Bug Repellent! File Seoul! Slither! 



#24- DEC. '85 Speech synthesizer! The 
IBM Connection! The year's 25 best entertain- 
ments! And ready lo enter: Gypsy Starship! 
Directory Manipulator! Cloak' Gameloader! 
Jewel Ouesl! Lineoul! Santa's Busy Day! 



#25 — JAN. '86 Build a speech synthesiz- 
er! Survey of sports games! And ready to en- 
ter: Martian Monsters! Streamer Font! Micro- 
sim' Haunted Castle! Knockout! Infraraid! 
Alarm Clock' Memory Checkl Scratch Pad! 



#26 -FEB. '86 Windows! Build an auto- 
exec cartridge! Align your 1541! Survey of 

flight simulators! Structured programming! 
And ready to enter: Arena! Head to Head! 
Crablight! Treasure Wheel! Character Dump' 



#27— MAR. '86 Programming education- 
al games! Memory dumpers! Choosing a 
copy program! Custom characters! And ready 
to enter: AhoylTerm 128! Trivia Game Maker! 
Brickbusters! Easy Lister! Programmer's Aid! 



#28-APH. '86 Cornel catching! Survey 
o) action and strategy games! Screen dum- 
ping! And ready lo enter: Chrono-Wedge! Mr 

Mysto! Air Rescue! Nolemaker! Screen Win- 
dow! JCALC! Hidden Cavern! Swoop! 



#29- MAY '86 128 graphic bit map! Epyx 
strategy guide! 128 commands' ML music 
programming! And ready to enter: Bigprint! 
Star Search! Failsafe! English Darts! Ski Folly! 
Free RAM Check! Alchemist's Apprentice! 



#30 -JUNE '86 Debugging dilemmas! 
Public domain software! Winning al Ullima! 
Computer Aided Design! And ready lo enter: 
LazySASIC! Got A Match? Star St nke! Queen's 
and Bishop's Tours! Shaker! Trackdown! 



#31 -JULY '86 Inside Ihe Amiga! Condi- 
tional branching! Chess programs! 128 and 
64 DOS! And ready to enter: Screen Sleuth! 
Skull Castle! Head-on! Nebergall Run! Word- 
count! Crary Joe! Fidgits' Music School! 



#32 - AUG . '86 Inside ihe Amiga, part il" 
Approaching infinity I C-64 war simulations! 
Pascal for beginners! ML graphics! And ready 

to enter: Reversit Highlight! Disk Calaloger! 
Meteor Run! Trim! Step On It! Flap! 



#33 — SEPT. *86 Windows and viewports! 
Sound i, music on the 64! COMAL! And ready 
lo enter: The Last Ninja! Speech64! Multi 
RAMI Dogcatcher! Trapped! Malchblocks! 
Variable Manager! Dual Dump! Mine Canyon! 



#34-0CT, *86 Build a digital oscilloscope' 
ML speed techniques! And ready to enter: 

Vault of Terror! Quick Change! Penguins! At- 
tack Force! Disk Checkup! Dvorak Keyboard! 
Mountaineer Mack 1 128 lo 64 Autoboot! 



#36- DEC. '86 File manipulation! C-128 
shadow registers! Fc-olball games! And ready 
to enter: The Artist' Minotaur Maze! Mouse 
in the House! Lazy Source Code! Rebels and 
Lords! Speedway! The Editor! Micro City! 



#35- NOV. '86 C-128 shadow registers! 
Data hie handling! PROMAL! Habilat! And 
ready to enler: Toleporter! 128 RAM Check! 
Discs ol Daedalus! Guardian! Tenpins! Syntax 
Patrol! Deluxe List! Long Lines! Delonailon! 



#37— JAN. '87 Pointers and Ihe monilor! 
Best games of '86! DOS for beginners! And 
ready to enter: Vortex! Hanger 14! BASIC 
Ahoy! Catacombs! Lixter! Dark Fortress! Per- 
maLine! Slaughter! Dugout! Screens! 



#38- FEB 'B7 Hacking inio machine lan- 
guage utilities! Amiga RAM expanders! And 
ready lo enter: Window Magic! Crunchman! 
User Conventions! The Adventurer! More 
BASIC 128! Jailbreak! Turtle Rescue! 640! 



#40 -APR. '87 Inside the Amiga 2000! 
Fractals! Baseball games! COMAL, turtle 
graphics, and Logo! And ready to enter: Info- 
Haw! Laps! Pieman! Llsl Formatter! Scramb- 
ler! Extended Background Mode! Planet Duel! 



#44 — AUG. '87 Electronic screen swap- 
ping on the C-128! Science fiction action 
games! The death ol GOTO! Amiga reviews! 
And ready to enter; Archer! Banner Print! 
Route 64! Steeplechase I Batter Up! Scanner! 



#48 -DEC. '87 Exploring artificial 
nlelligence! Expansion port lulorial! Memory 
expanders! And ready to enter; Redirect! Sil- 
houette! Fueling Station! Take Two! Pizza Boy! 
Sprite-On! Warship! Cliffhanger! 



#52 -APR. '88 BASIC'S hidden treasures! 

Updating your Amiga 1000's printer poll Disk 
drive accelerators! And ready to enter: Time 
Subway! IRQ Messenger for the 64 and 128! 
Sprite Exploder! Hl-Res Windows! Barricade! 



#54 — JUNE '88 Advanced disk drive 
commands! Creating your own lext games. 

part I! Programming in COMAL! And ready 
to enter: Rashgar! Movie Scroll! MOB Blob! 
Snap Snake! Phobia! Losl Dutchman's Minel 



#41 - MAY '87 Kernal poworl 64 and Am- 
iga graphics! Microworlds In COMAL! Brain 
games! Dark Fortress master maps! And 
ready to enter: Moondog! Startup! Illusion 
Master! Wall Crawler! Scavenger Hunt! 



#39- MAR. '87 Basic esthetics! Survey 
of video digitizers! Multiplayer games! And 
ready to enter: C-64 Compressor! Wijard Tag! 
Turbopoke! Rescue 128! Lights Out! Pinbatl 

Arcade! Stow Away! Caverns of Geehonk! 



#42— JUNE '87 Meg a I lops and microsec- 
onds! Sci-ll braingames! C-64 to Amiga tile 
transfer! And ready to enter; D-Snap! Wraiths! 
Galactic Cab Co.! Cave of the Ice Ape! ALT- 
Key 128' Power Squares! 128 Multi RAM! 



#43 -JULY 'B7 Real world interfacing! Bll 
map graphics tutorial! C-64 graphic conver- 
sion! Martial arts soltware! And ready lo en- 
ler: Wizard Tag II! Data Creator! Plink 4 Plonk! 
Univaders! Data Express! 128 Scroller! 



#45- SEP. '87 The 128 versus The 

Clones! Building an Amiga trackball! MSD up- 
dalo! CES Report! And ready to enter: Crys- 
tals! Sprileshell! Hoops! Chainmaill No 
News! PS to 6E0SI Centerfold) Red Alertl 



#46 — OCT. '87 A rainbow of data struc- 
tures! BASIC 8.0 reviewed! Buying guide to 
COMAL! Tips Ahoy! Art Gallery! And ready to 
enter: Empire! C-64 RAMDrlve! Hotfoot! Plat- 
forms! Spray-Cam! Jam Attack! 



#49- JAN. '88 Iterative mathematics and 
graphics! Expansion port tutorial, part II! The 
best C-64 and Amiga games of 1987! And 
ready to enter: Intoflow 64! TextSave! Clone- 
A-Matic! Ice Titans! Jungle Jake! 



#50- FEB '86 livestigaiing audible wave 
phenomena! Cartridges! Commodore 64 em- 
ulators for Ihe Amiga! And ready to enter: 
Coffee Break! Crypt of Fear! Screen Wizard! 
ML Ranger! 128 Smart Merge! Marauder! 



r 



Please send me 

copies ol issue # copies of issue # 

copies of issue # copies of issue #. 

Enclosed please find my check or money order for S 

(GtitsirJe the USA add SLOT) per copy) 

NAME 



#47- NOV '87 The ins and outs of data 

organization! Overview of C-64 memory ex- 
panders! CommDdares! And ready to enter: 
Orbit! RAMCOI A-Maze-Ing! Line Sentry I Des- 
ert From! Paper Route! Flash Flood! 



#51 — MAR '88 Synlhesizing waveforms! 
Comprehensive guide to Commodore power 
supplies! Utilizing Amiga HAM mode! Art Gal- 
ery! And ready lo enter: Vee Kloros! The Ex- 
tractor! 3-D Graphic Projector! Phantasy! 



#53— MAY '88 Premier issue of Ahoyt's 
AmigsUser, featuring: survey of sampling 
software! The essential Amiga game library! 
Guide to Amiga books' Business column! And 
ready lo enter- AmigaUserTerm' Matrix Patlern' 



If order more 

than four, list 

on separate sheet. 



ADDRESS. 
CITY 



.STATE. 



.ZIP. 



Send to: Ahoy! Back Issues, Ion International Inc., 
34th Street- Suite 500, New York, NY 10001. 
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$4.00 except 

#2, #3, 
and #21 
($10.00) 




Lyco Computer 

Marketing & Consultants 




Monitors 



COMMODORE M COMMODORE 



Thomson: 

230 Amber TVj\T $79 95 

4120 CGA $218.95 

4160 CGA $254.95 

4460 EGA $349.95 

GB 200 Super Card S1B4.95 

4570 $CALL 



4120 
Monitor 



$225 



95 



Mark "Mac" Bowser, Sale* Manager 

I would personally like to thank all of our past customers for helping to 
make Lyco Computer one of In* largest mill order companies and a 
tender In Ihe Industry. Also, I would Mko lo evtond my personal Invilaliou lo 
All cnrnpulnr enthusiasts who have nol experienced Hie services Itiat wo pro- 
vide. Please call our trained sales staff al our Eoll-fieo number to Inquire 
about our diverse product fine and weekly special. 

FTret and foremost our philosophy la to keep abreast of the changing 
market so lhat we can provide you wilh not only factory fresh merchandise 
but also the newesf models oHered by Ihe manufacturers at Ihe absolute best 
possible prices. We oiler the widest selection ol computer hardware, soltware 
and accessor tes. 

Feel tree to call Lyco If you want to know mote about a particular Item. I 
can' I stress enough that our loll- It ee number Is not |ust for orders. Many 
companies have a loll-Tree number lor ordering, but II you }ust want lo ask a 
question nbou! e product, you tiave to moke a loll call. Nol at Lyco. Out 
Iralrmd sales slalf Is knowledgeable aooul all Iho products we slock end is 
happy tn answer any questions you may have. Wo will do our best lo make 
sure that Ihe product you solocl win lit your application. Wo also have Snlur- 
day hours — one more reason lo call us fur all your computer needs. 

Once you've placed yout order with Lyco, w* don'l forget about you, 

O'.rr IrifnrJIy, prnrr>v,.onnl r i n1t:rT.or si-mcrr rpr lf '"'" 1 ril.TEivfS will lirut answers 
to yout questions about the status ol an order, warranties, product availabili- 
ty, or prices. 

Lyco Computer •took* a mulllmtllon dollar Inventory of factory-fresh 
merchandise. Chances ate we have exactly what you want tight In our ware- 
house. And that means you'll pet it last. In lect. ordeta ate notmally ehlpped 
within 24 houii. Fie* ahlpplng on ptepald ordeti over $50, and Ittere Is no 
deposit requited on CO 0. ordeta. Air freight ot UPS Blue/tied Label shipping 
la available, too. And all ptoducta catty th* lull manufacturers' warranties. 

t can'l see why anyone would shop anywhere else Selection from our huge 
In stock inventory, best price, service that can'i be beol— wave got it all here 
a.1 Lyco Computet, 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 

New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 

Hours: 9AM to 8PM, Mori. - Thurs. 

9AM to 6PM. Friday — 10AM to 6PM, Saturday 

For Customer Service, call 1-717-494-1670, 

9AM to 5PM, Mori. - Fri. 

Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 

C.O.D. Ft I ak- Free Policy: • lull mamifacturots.' warranties • no sales lax 
outside PA • prices snow 4% cash discount: add 4% lor credrt cards a APO. 
FPO. intomabonalL add SS plus 3% for pnonty • 4-week clearance on personal 
checks • we check lor credrt card theft • sorry, compatr&ilrty not guaranteed • 
latum authoniation requited e due 10 new product guarantee, return restrictions 
apply ■ price/availability subject lo change e prepaid orders under $50 in 
Continental US, add $3.00 



Magnavox 

BM7652 $79.95 

BM7S22 $79.95 

7BM-613 $75.00 

7BM-623 $7995 

CMB502 $179.95 

CM8S05 $199.95 

9CM-053 $339.95 

CM8762 $239.95 

8CM-515 $249.95 

CM9043 5329 95 

Blue Chip: 

BCM 12" Green TTL $64.95 

BCM 12" Amber TTL $69,95 

NEC: 

Mutitsync II $599.95 



Modems 



Avatex: 

1200e $69.95 

12001 PC Card $69.95 

1200hc Modem $69 95 

2400 $179 95 

2400iPCC»rd $169 95 

Have*: 

Smarlmodem 300 $149.95 

Smartmodem 1200 $285.95 

Smanmodem 2400 $425 95 

Smarteam 

1200 Baud Modem 



Acllvlalon 

Champion Basketball . $19.95 

Music Sludio $19 95 

Ualnet Goddesses .... $22.95 

Top Fuel Eliminator $15.95 

Beyond Zork $25.95 

GFL Football $1995 

Gee Bee Air Rally $16.95 

LastNinja S199S 

Might & Mapc $19.95 

NordS Set! $19.95 

Aliens $25.95 

Maniac Mansion $19.95 

Bntlarloa Included: 

Papetclip 111 $31.95 

Outrageous Pages $31.95 

Berkeley Softwares: 

GeofileC64 $29.95 

GeoCalcC64 S29.95 

Geos64 S35.95 

Geos 128 $39.95 

Goownle $29.95 

Geownle 128 $39.95 

Geopubksh C64 $39.95 

Berkeley TnPek $29.95 

Broderbond: 

, Bank SI. Writer „ — $27.95 

t sKdcarmen San Diego ..... $19.95^ 

trrapmrtrtrtitrttf 

PnnlShop 

Pnnt Shop Compan. 

Cauldron 

Supertake Challenge . 

Magnetron $14.95 

El eel ionic Art*: 

Marble Madness $20.95 

YeagersAFT $22.95 

Demon Stalkers $20.95 

Oregon's Lair $16.95 

Skate or Die $20 95 

Slnke Fleet $2095 



SI ra logic Simulations: 

Gettysburg $33.95 

Phantasie li $22.95 

Phantasie III $22 95 

Road Wai 2000 $22.95 

Wizards Crown $22.95 

Wargame Constr 51S.95 

Battlecruiser $33.95 

Eternal Dagger $22.95 

Shikjh 522.95 

Question II $22.95 

Phantasie $22.95 

Sons ot Liberty $19.95 

Subloglc: 

Flight SI mulaloi II $31.49 

Jot Simulalor $24.95 

Night Mission Pin ball ... SI 8. 95 

Scenery Disk 1-6 $12.95 

SI eatlh Mission $31.95 

Tlmeworke: 

Partner C64 $22.95 

Partner 128 $27.95 

SwittCalc128 $27.95 





Hayes Compatible 



Epyi: 

Dasltoyer $22.95 

rastload $19.95 

Sub Battle $22.95 

Winter Games $11.95 

California Games $22.95 

Sir. Sports Baskelball . $22.95 

Summer Games II $11.95 

World Games $22.95 

Boukferdash Con Sot .. $13 95 

fiad Wairloi 513.95 

Firebird: 

ENte $18.95 

Guild ot Thieves $22.95 

Pawn $22.95 

Tracker $22-95 



^JutSGA 



Access: 

World Class Lead. Bd. $CALL 

Actlvlilon: 

Champ. Basketball $25.95 

Champ Kinship Go:t $22 95 

GFL Football $25.95 

Gee Bee Air Rally $22 95 

Electronic Arts: 

Griditon $26 95 

Oneon One $13 95 

Weaver Baseball $33.95 

Rolcrn lo Atlantis SCALL 

Epyx: 

ApshaiTnlogy $11.85 

Winter Games $22 95 

World Games $22.95 

Deslroyof $22.95 

Firebird: 

Guild of Thieves $25.95 

Pawn $2595 

Slarglidw $25 95 

Mlcroproae: 

Silent Service $22.9! 

Subloglc: 

Flight Simulator II $31 45 

Scenery Disk $CALL 

Unison World: 

Print Master $25.9! 

Art Gallery 1 or 2 S14.9! 



1-800-233-8760 



£ 



New for '88 



Commodore Ready 



Great Price 



-IL 



&/■ 



MMrtAlil' l/l< 



SEIKOSHA Panasonic 

NX-1 000 sp 1 80VC 1 091 I Mod fiR 



• 144 cps Draft 

• 36 Cps NLQ 

• EZ Operation Front 
Panel Control 



$179 9S l: 




$129 



95 




192 cps Draft 
NLQ Mode 
Excellent 
Versatility 



• 100 cps draft Quantities 

• 20 cps NLQ Limited 







$199 



iiE@IF 



NX-10O0 1179.95 

NX-10OQC $179.95 

NX-IOOO Cotor $225. 95 

NX-1OO0C Color $229,95 

NX-15 $309.95 

NR-10 $339.95 

NR-15 $439.95 

NB-15 24 Pin $699.95 

NB24-1Q 24 Pin 1425.95 

NB24-15 24 Pin $57995 



fCITIZEN 



120 D $169.95 

100 SI 89.95 

MSP-10 $259.95 

MSP-40 ,.,„.,. $309.95 

MSP-15 $349.95 

MSP-50 $399.95 

MSP-45 $159.95 

MSP-55 ,. $539.95 

Premiere 35 $499.95 

Tnbulo 224 ..S649.95 



COMMODORE 




SEIKOSHA 

SP 1B0AJ $12995 

SP 1BOVC $129.95 

SP 10O0VC $139 95 

SP 10O0AP $169.95 

SP 1200VC $155.95 

SP 1200Ai $165.95 

SP 12COAS RS232 $165.95 

SL BOA) $299.95 

MP1300AI $269 95 

MP53O0AI $399 95 

MP5420Fa $1079 95 

SP Sanaa Ribbon $7.95 

SK3000AI $339.95 

SK3005 Ai $419.95 

SPB 10 SCALL 

SL 130Ai $599.95 



Toshiba 

321SL $489 

341 SL $659 

P351 Model II , $899 

351 SX 400 ops $1019 



EPSON 

LXB00 $199.95 

PXB6E $2/9 95 

FX286E $424.95 

EXBOO $399 95 

LO5O0 , $339 95 

LO10O0 w.Traetor 5549 95 

LO2500 $819.95 

GO3500 $LOW 

LQS5G $525.95 

LQ1050.,., $715.95 

DIABLO 

D25 $-199 95 

635 $779 95 

BROTHER 

Ml 109 , $164.95 

M1409 $29995 

M1509 $335 95 

M1709 $475 95 

Tw nwriter 6 Do! S Daisy . $899,95 

M1724L , $619.95 

HR20 $345.95 

KR40 $599 95 

HR60 S709.95 



tOOOi Model II $179.95 

109H Model II $199.95 

1092i $319.95 

1592 $409.95 

1595 $459.95 

.3131 $299.95 

3151 $479.95 

KXP 4450 Laser SCALL 

1524 M Pin SS59.95 

Fax Partner $589.95 

OKIRATA 

Okimate 20 $119 

Okimate 20 woart $179.95 

'20 $189 95 

180 $219.95 

1B2. $209.95 

1"2 • $225 95 

103 S249 95 

'92* $339.95 

193 • ., $449.95 

292 w/lnterface $449.95 

293 w/interlace S585.95 

294 w.lntertaoa $819.95 

393 $955.95 



COMMODORE 

HARDWARE 

1 28D ,s * 1 ll °>** 0"ve $175.95 

e 1581 Disk Dnva $189.95 

OyStem Indus GT C-64 Dm« $169.95 

1B02C Momtof $189 95 

64 C Compular $169.95 

95 U^-iaSJitouse .^ m ,„ S39.95 ) 



COMMODORE e 4 c 

COMPUTER 



QA A Q 95 fc-.135J Mpuse^^ 
3"T"| i J/ 1700 RAM 



Ml 



Gommoooro 

12SDPIU9 

Thomson 4120 

Monitor 

$649.95 



1700 RAM $109.95 

f-^TSO-HA M SCALL 



«SLBAMjCS4_^ 



§!1£S^-V\ 



tgppv 



$169 



95 



Color System HEADSrART 

■ Ready to plug in and use 
immediately 

* Ultra fast Mhi Intel 8065-2 
Processor 

# 512K RAM memory 
eapandsNo to 768K 

■ 2-360K disk drives atandard 

• Flrat complete syslom with 
clock calendar and buiIMn 
ports tw primer, RS232, 2 
joysticks, mouse and tight pen 

• Includes £500 wOrtn FREE 
software programs 

* HiRescotofmofirtonnclLKtedl 




$1049 



1084 Monitor $299.95 

128 Compular $219.95 

Encel 2001 C128 Dnva $199.95 

Excel FSD-2+ C64 Dnue $149.95 

PC 

COMPATIBLE 

HARDWARE 

BCM 12G Gr Monitor $64.95 

BCM 12A Am. Monitor $69.95 

BCC CG Color Card $94.99 

AST $CALL 

Laser Compacl XT $475 95 

Laser Comaacl XTE 640K $549.95 

Laser DasMoo Turbo XT 256K . $569.95 
Laser Desktop Turbo XT 540 K . S59995 




PERSONAL 
COMPUTER 

• 4.77 Mhz 
speed 

• Dual floppy 

• Green monitor 
included 



$579 



95 



Attention Educational Institutions: 

If you are not currently using our 

educational service program, please 

call our representatives for details. 



Reader Service No. 157 



in line I. Be sure to SYS to the new address if you do change 
it. -Buck Childress 

Salem. OR 



1 A=49152:REM * (A=4S64 FOR THE C-128) * 
(ROTH VERSIONS CAN BE RELOCATED.) * 

2 FORJ=AT0A+107:READB:P0KEJ f BJX»X+B:NEXT 
J 

3 IFX<>17061THENPRINT"ERROR IN DATA[3". H 
] " : END 

4 REM **# YOU COULD PLACE A RETURN HERE 
IF THIS IS USED AS A SUBROUTINE. *** 

5 DATA169, 20, 133, 250, 169, 0,162,4, 160,216 
,133,251 

6 DATA133, 253, 134,252,132,254,162,24,160 
,38,177,251 

7 DATA200, 145, 251 , 136 , 177 , 253 , 200, 145 , 25 
3,136,136,192 

8 DATA20, 176,239, 160,20, 169,32, 145,251,1 
60,1,177 

9 DATA251, 136, 145, 251, 200, 177, 253, 136, 14 
5,253,200,200 

10 DATA192, 21, 144, 239, 160, 19, 169, 32, 145, 
251,165,251 

11 DATA24, 105, 40, 133, 251, 144, 2, 230, 252,1 
65,253,24 

12 DATA105.40.133, 253, 144, 2, 230,254, 202, 

16,181,160 

13 DATA10, 202, 208, 253,136, 208, 250, 198, 25 
0,208,153,96 

SURVEYOR 

1000 screen and 1000 color RAM locations! Now just 
how are we as mere mortals supposed to look at the moni- 
tor and know exactly where each one is? If you're trying 
to POKE characters and colors to various locations, it can 
quickly become hair-pulling time. 

You can always use the chance method. Throw darts at 
the monitor from 10 paces and figure that's close enough. 
Trouble is, they don't stick too well. And, if they do, you'll 
wind up with an air-conditioned screen. 

Take heart. There is a better way. And it's 100% accur- 
ate. Sun-eyor instantly gives you the screen and color RAM 
locations of any place you choose. Let's give it a whirl. 

First load and run Surveyor. To activate it, type SYS 49152 
and press RETURN. Now you can survey the situation. 

Just cursor to a desired target and press the SHIFT and 
CONTROL keys at the same time. Two numbers will 
appear. The first is the screen RAM location and the sec- 
ond is the color RAM location. Try it again. Nice and easy, 
nice and quick. 

Surveyor can easily be relocated if you want. Just change 
the variable A in line 2 to your new starting address. Don't 
forget to SYS there if you do. 

RUN STOP/RESTORE deactivates Surveyor. SYS to the 
appropriate address to reactivate it. 

Don't pull your hair out. But, if you do, maybe you can 
sell it for a toupee. -Buck Childress 

Salem, OR 



•1 REM *** SURVEYOR C-64 *** 

•2 A=49152:PRINTCHR$(147) 

• 3 F0RJ=AT0A+95 : READB: POKEJ , B : X=X+B: NEXTJ 

■4 IFX<>14696THENPRINT"ERR0R IN DATA[3'\" 

]":END 
•5 C=IHT< A/256) :D=(A-(C*256))+13:POKEA+l, 

D:P0KEA+3,C 
•6 PRINT"DATA OK * SYS"A"T0 ACTIVATE[3"." 

]":END 
•7 DATA169, 13, 162, 192,120, 141, 143,2, 142,1 

44,2,88 
•8 DATA96, 173, 141, 2, 166 ,254, 133, 254, 201, 5 

,208,69 
•9 DATA228, 254, 240, 65, 169,1, 133,204, 165,2 

11,133,252 
•10 DATA165,214, 133,253,165, 209, 166,210,2 

4,101,252,144 
•11 DATA1, 232, 134, 251, 170, 165, 251, 32, 205, 

189,169,42 
•12 DATA32, 210, 255, 165, 243, 166, 244, 24, 101 

,252,144,1 
•13 DATA232, 134, 251, 170, 165, 251, 32, 205, 18 

9,166,253,164 
•14 DATA252, 24, 32, 240, 255, 169,0,133,207,7 

6,72,235 

FASTER CHARACTERS IN BASIC 7.0 

The following program redefines the character set in only 
two seconds. A FOR/NEXT loop would take 32 seconds. 

Lines 50 and 60 move the character ROM into the bit 
map screen. The monitor is called via a function key. 

Lines 80 through 110 give you underlined letters. To ac- 
cess them, press the letter keys with the logo key. The ef- 
fect is much better if you use capitals in line 80. 

The next 12 lines are for simple animation. Circles are 
drawn on one character then copied to the space character. 

—James Glaser 
Burney, CA 

•10 COLOR 0,1:C0L0R 1,4:C0L0R 4,1 

•20 GRAPHIC 1,1: GRAPHIC 0,1: BANK 15 

■30 PRINT " [HOME] [ HOME] [ 3"[ DOW] "]"TAB( 15 

)"W0RKING[3'V']" 
•40 WINDOW 0,13,39,24,1 
•50 KEY 1," [CLEAR ][ BLACK ]M0NIT0R"+CHR$( 13 

)+"T ED800 ED[3 M F"] E3800"+CHR$(13)+"X"+ 

CHR$(13)+"G0T070"+CHR$(13) 
•60 POKE 209,PEEK(4096):P0KE 210,0: END 
•70 KEY 1, "GRAPHIC": GRAPHIC 2, 0,13: COLOR 

5,14 

•80 TEXT$="<->.* [s K][s I][s T]=[s G]+[s 
M]!"+CHR$(34)+"[s N][s Q][s D][s Z][s S 

][s P][s A][s E][s R][s W][s H][s J][s L 

][s Y][s U][s 0]?[s F][s C][s X][s V][s 

B]" 

•90 POKE 4588,216:CHAR,19,21,TEXT$ 
•100 FOR A-91 TO 127:R=14343+A*8 

Continued on page 82 
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By Richard Herring 
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peed. Raw, blinding, power-user speed. Amigas 
running anywhere from 7.14 megahertz to over 
14 MHz with turbo boards sharpening the cut- 
ting edge. 

How can the poor C-64 keep up at a piddley 1 MHz? 
Or even the C-128 in fast mode at a dawdling 2 MHz? 
But obviously they do keep up, as is evidenced by some 
of the fine and very powerful software available. 

For a given computer, speed can be significantly en- 
hanced by two things: programmer's tricks and program- 
mer's tools. Tricks come with experience. Tools are equal- 
ly available to all of us -often off the shelf. 

One key tool is the language in which we each choose 
to program. Several of you have asked just how fast 
COMAL is. Forget for the moment how its structure en- 
hances programming and debugging. If COMAL is not 
at least as fast as other languages, then it's not what some 
of you power programmers are looking for. 

Enter Herbert Denaci, engineer and speed aficiona- 
do. While I was doing some of the background work on 
this column, he and I exchanged a few letters. Denaci 
has done exactly the kind of speed testing that will be 
useful in proving COMAL's value. So we'll explore his 
benchmarks, as well as a few others, and you can judge 
COMAL for yourself. 



Denacft Benchmarks -C-64 or C-128 at 1 MHz 

{Scores are ranked against BASIC 2.0. A score ol .50 means the 
benchmark ran in half the time BASIC took.) 





Sieve 


Trig 


Flight 


Ahl's 


COMAL 0.14 


.74 


1.00 


.69 


.97 


COMAL Z.0 


.30 


.98 


.54 


.22 


BASIC 2.0 


1.00 


1.00 


1.00 


1.00 


BASIC 7.0 


1.46 


1.08 


1.28 


1.09 


Pascal 










(Oxford)* 


.14 


1.05 


.67 


.55 


PROMAL* 


.06 


1.13 


.86 


1.45 



"The "run" times for Pascal and PROMAL do not include the sep- 
arate step of compiling the source code. Compile times vary from 
7 to 94 seconds on these benchmarks, which run in anywhere 
from Vi to 5 minutes. 

Now no benchmark gives an absolutely true picture 



of a language's speed. What you want as a programmer 
is the most speed for the particular program you're writ- 
ing right now. The useful speed of the language will 
change as the demands of your program vary. All a bench- 
mark can do is provide a comparison based on the fea- 
tures it happens to exploit. 

Let's look first at the Sieve of Eratosthenes. It has been 
used as a programming algorithm since at least 1969. All 
it does is find prime numbers. Sieve is generally used 
to test a high-level language's performance in Boolean 
algebra. It also gives an indication of the language's abil- 
ities in array handling, memory references, and structured 
control statements. 

The heart of Denaci's translation of Sieve, into 
COMAL 0.14, is: 

0130 FOR I#:=0 TO SI# DO 
0140 IF FLAGS#(I#) THEN 
0150 PRIME#:=I#+I#+3 
0160 K#:=I#+PRIME# 
0170 WHILE K#<=SI# DO 
0180 FLAGS#(K#):=FALSE 
0190 K#:+PRIME# 
0200 ENDWHILE 
0210 COUNTS :+l 
0220 ENDIF 
0230 ENDF0R I# 

Sieve has a lot of calculations to perform. Writing it 
this way allows it to be a real screamer because: 1) it 
doesn't use division, 2) it uses prior knowledge about 
numbers that cannot be primes (even numbers), 3) it al- 
ready knows that 0, 1,2, and 3 are the first four primes, 
and 4) it calculates primes as the value of the variable 
PRIME#, or twice the current array index plus three. 

To stretch out the test a little, a major loop is run 10 
times with these additional lines: 

0080 DIM FLAGS* (0: SI #) 

0090 FOR ITER#:=1 TO ML# DO 

0100 FOR I#:=0 TO SI# DO FLAGS#(I#) :=TR 

UE 

0110 PRINT "LOOP ",ITER# 

0120 COUNT* :-0 

AHOY! 45 



0240 ENDFOR ITER# 

0250 PRINT "COUNT=";COUNT# 



Denaci's Benchmarks - 


-C-128 at 2 MHz 




(Scored against BASIC 20) 






Sieve 


Trig 


Flight 


Ahl's 


COMAL 0.14 


.73 


1.03 


.78 


.97 


COMAL 2.0 


.30 


1.00 


.60 


.22 


BASIC 2.0 


1.00 


1.00 


1.00 


1.00 


BASIC 7.0 


1.38 


1.21 


1.35 


1.04 


FORTRAN 










(Nevada)* 


- 


5.70 


2.84 


1.60 


*The run times for FORTRAN use the C-128's Z80 microprocessor 


and do not include the separate c 


ompile times. 





Denaci's calls his second benchmark Trig. It uses trig- 
onometry functions that are typical of those used in flight 
dynamics problems. The heart of this benchmark, in 
COMAL 0.14, 



is: 



0100 ITERATION :=0 

0110 Ai-.l 

0120 B:=.2 

0130 FOR ITERATI0N:=1 TO 1000 DO 

0140 C:=SIN(A/B)#COS(A/B) 

0150 ENDFOR ITERATION 

The Trig benchmark is just a warmup for Denaci's real 
interest— the Flight Dynamics Simulation benchmark. He 



wrote this 145-line benchmark to be representative of a 
guided missile program used for design studies. It's not 
listed here for space reasons — not physical space, but the 
space that appeared between my ears when I attempted 
to decipher it. Suffice it to say that Flight contains plen- 
ty of arithmetic calculations as well as all the trigonom- 
etry you could hope for. 

Dropping back in time to another old benchmark, we 
find David Ahl's Simple benchmark from the January 
'84 issue of Creative Computing. Translated into COMAL 
0,14, the meat of this test looks like: 



0100 


R:-0 




0110 


S:=0 




0120 


FOR N#:=l TO 100 


DO 


0130 


A:=N# 




0140 


FOR I#:=l TO 10 


DO 


0150 


A:=SQR(A) 




0160 


R:+RND(1) 




0170 


ENDFOR I# 




0180 


FOR I#:=l TO 10 


DO 


0190 


A:=A*2 




0200 


R:+RND(1) 




0210 


ENDFOR I# 




0220 


S:+A 





0230 ENDFOR N# 

This benchmark tests for mathematical accuracy by tak- 
ing the square root of A, then squaring the result and 
adding it to the variable S. Perfect accuracy would re- 
sult in S equaling 5050 at the end of 100 cycles through 



TECH NOTES 

1) The COMAL Users Group claims version 2.0 
is about twice as fast as 0.14. COMAL Today maga- 
zine #6, p. 17. 

2) All the C-128 benchmarks were run in C-64 
mode. COMAL 0.14 won't load in C-128 mode and 
the COMAL 2.0 cartridge forces the C-128 into C-64 
mode on bootup. 

3) If you own a C-128, you can kick your computer 
into its fast speed while in the 64 mode. Normally 
the C-128 in 64 mode operates with a 1 MHz clock, 
but you can switch to (he 2 MHz clock with POKE 
53296,3 and reset to 1 MHz with POKE 53296,0. in 
the faster speed, the C-128 screen will go blank and 
internal computer operations will click along at twice 
the normal speed. (The corresponding hex address to 
53296 is $D030.) You can elect to just blank (not erase) 
the screen and take the modest speed improvement 
by POKEing 53265 with a 3 (off) and then a (on). 

4) The Sieve benchmark has been written other ways 
using division. It runs dozens of times slower. The 
moral? If you're looking for speed, don't throw out 
high-level languages; look for better algorithms. High- 
level languages are generally considered to save time 
in development and debugging. If you just have to have 
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more speed in your finished program, try rewriting 
the most critical routines in assembly language. Even 
then, don't throw out that high-level code -it may be 
useful documentation in the future. 

5) Ahl's benchmark is, like the others, designed to 
give a specific comparison of processing speed. How- 
ever, it also reports on the accuracy of the language 
and the computer at squaring the square root of a num- 
ber and coming up with exactly the original number. 
At the end of the completed benchmark, it subtracts 
the original number from the one calculated by the 
computer. Presumably the closer to zero the better. 
Here are some interesting "accuracy scores": 



COMAL 0.14 
BASIC 2.0 



0.000298 
0.001041 



COMAL 2.0 
BASIC 7.0 



0.000117 
0.001052 



6) No benchmark can be the sole criterion for you 
to use in judging a language. Sieve, for example, does 
not test features like recursion or sets, which are crit- 
ical to some programming tasks. And benchmarks to- 
tally fail to show ease of programming. As Denaci 
wrote, "In comparing the five languages, there is no 
doubt that COMAL is superior, it is user friendly! 
BASIC isn't as difficult as the "compiled" languages, 



the major loop. And the benchmark exercises the random 
(RND) function by adding a random number between 
and 1 to the variable R a total of 2000 times. That's 
10 times (line 140) plus 10 times (line 180) multiplied 
by 100 (line 120). The resulting value of R, based on 
probabilities, should be 1000, but the actual calculation 
doesn't mean much with the exception of testing execution 



speed. 


Rupert's "Benchmarks" 




(Scored against BASIC 2.0) 




Addition Multiplication 




(1 MHz / 2 MHz) (1 MHz / 2 MHz) 


COMAL 0.14 


1.07 / 1.06 1.05 / 1.04 


COMAL 2.0 


.64 / .64 .77 / :77 


BASIC 2.0 


1.00 / 1.00 1.00 / 1.00 


BASIC 7.0 


1.42 / 1.39 1.29 / 1.26 



Next we'll borrow from the Rupert Report in the June 
1987 issue of Ahoy! that showed BASIC'S ability to per- 
form 1000 additions or multiplications. Dale's test, con- 
verted to COMAL 0.14, is: 

0100 A: =3.21896543 

0110 B: -1.02 104539 

0120 POKE 160,0 

0130 POKE 161,0 

0140 POKE 162,0 

0150 FOR N:=l TO 1000 DO 

0160 A:=A+B // ++ A:=A*B 

0170 ENDF0R N 

ma^^maama^^^mmmm^mm^am 

but it has the limitation of only recognizing the first 
two letters in variable names. Using compilers makes 
it difficult and time consuming to troubleshoot and 
edit a program." 

7) If you choose to run these benchmarks yourself, 
you can get more accurate timing than is possible with 
a sweep-second hand or by counting one-thous-and- 
and-one. Use the computer's internal clock. If the lan- 
guage does not have a way to directly access the clock, 
like BASIC'S TI$ or COMAL 2.0's TIME, then use 
zero-page memory locations 160-162 (SA.0-SA2). 
POKE them with zeros just before the main body of 
the benchmark and calculate the time at the end with: 

PRINT (256*256*PEEK(160)+256*PEEK(161) 
+PEEK(162))/60 

8) For more reading on benchmarks, try: "Leaks 
Like a Sieve," Byte, 8/85, p. 33; "Benchmarks," Byte, 
8/85, pp. 132-3; GUbreath, I, "A High-Level Language 
Benchmark," Byte, 9/81, pp. 180-198; Knuth, D., Vie 
ARt of Computer Programming Vol 2; Semi-Numeri- 
cal Algorithms. Reading MA: Addison-Wesley, 1969; 
AM, D., "Creative Computing Benchmark," Creative 
Computing, 1/84, p. 5. 



0180 PRINT (256*256*PEEK(160)+256*PEEK(1 

61)+PEEK(162))/60, 

0190 PRINT " SECONDS" 

Finally, let's return to Son of Sieve and I'll get around 
to answering Robert Boomers' question about COMAL's 
speed. He sent the following BASIC program that com- 
putes the first 1000 prime numbers. 

1 TI$="000000" : DIMY% ( 8000} : P= 1 ■ C=0 

20 PRINTP, :C=C+1:IFC=1000THEN50 

30 P=P+1:IFY%(P)=1THEN30 

40 FORX=PT08000STEPP:Y%(X)=1:NEXT:GOT020 

50 PRINT: PRINTTI/60 

Translated into COMAL 2.0, Boomers' benchmark reads: 



10 


TIME 


20 


DIM y#(8000) 


30 


p:=l; c:=0 


40 


REPEAT 


50 


PRINT p; 


60 


c:=c+l 


70 


REPEAT 


80 


p:=P+l 


90 


UNTIL y#(p)<>l 


100 


FOR x:=p to 8000 STEP p do 


110 


y#(x)=l 


120 


ENDF0R x 


130 


UNTIL c=1000 


140 


PRINT TIME/ 60 



Boomers sent in times for BASIC 7.0 (1 MHz) and 
Abacus BASIC (MHz unknown), to which I've added 
a few: 





Son of Sieve 


BASIC 7.0 
BASIC 2.0 
COMAL 0.14* 
COMAL 2.0 


1 MHz 2 MHz 

266 seconds 127 seconds 

209 seconds 102 seconds 

197 seconds 95 seconds 

99 seconds 48 seconds 


*C0MAL 0.14 is short on program memory (under 10K), so times 
are estimated based on a benchmark to find the first 725 primes. 
**This "run" time does not include the extra step of compiling 
the program. 



So, what do all these numbers mean? You're free to 
draw your own conclusions. To me they say that COMAL 
0.14 is often an improvement over BASIC (in speed, that 
is; in other ways, it's always an improvement). And 
COMAL 2 .0, depending on your programming applica- 
tion, can have your C-64 running at C-128 "turbo" speeds. 
You're free to draw your own conclusions. Let me know 
what they are at P.O. Box 1544, Tallahassee, FL 32302. □ 
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ie Ultimate 3-D Adventure for the C-64 

By Cleveland M. Blakemore 



t the farthest corner of the earth, beyond the 
barren wasteland, lies the Tbrnb, abode of the 
hideously evil Demon King and the hordes 
k of darkness. The Demon's greatest treasure 
is the Alchemy Stone, an artifact from die ancient world 
that transmutes matter itself. 

Your task is to retrieve the Alchemy Stone (along with 
all the treasure you can gather) from the nether regions and 
escape from the Tomb of Honor into die light of day. 

This is die third (and final) entry in my trilogy of 3-D 
games. It evolved out of Crypt of Fear (Feb. '88 Ahoy!), 
which in turn was inspired by \bult of Terror (Oct. '86 
Ahoy!). I like to think Tve outdone myself, but you will 
ultimately be the judge of that. 



Brass 





originally had an attractive title screen and a redefined char- 
acter font, I had to take these out because of space limita- 
tions. In order to assure that the program quality did not 
suffer one iota, I also had to keep the sound effects to a 
mimirniTn . I doubt if these deletions will be missed. (Ed. 
note: the July Ahoy! Disk contains an expanded version 
of Tomb of Horror, complete with redefined graphics and 
enhanced title sen en. See page 52 for ordering information.) 
The program is mtirely joystick operated. You will nev- 
er have to touch the keyboard after typing RUN. All com- 
mands are entered through a convenient system of pull-down 



This game is a real-time three-dimensional dungeon ad- 
venture that utilizes page-flipping animation, multiple sprite 
shapes, pull -down windows with joystick-controlled menus, 
and thirteen different creatures. It has three separate lev- 
els, five different kinds of traps, nine different types of wea- 
pons, five types of armor, and flurry individual objects that 
can be held, examined, or used in some way. It also fea- 
tures high quality graphics in color, thanks to extended 
background mode. The game has complex algorithms for 
combat, taking into account the type of creature you are 
fighting, the type of armor you have on, what type and qual- 
ity weapon you are using, and how strong you are as a fighter. 

In order to squeeze this program into a measly 68 blocks 
on disk, I had to throw all frills to the wind. Although it 
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Any way you stack it up, Ahoy! (for 
Commodore 64 and 128 users) and 
Ahoyl's AmigaUser offer the best val- 
ue in news, reviews, features, and 
programs for the home computerist. 

Use the postpaid card bound be- 
tween pages 50 and 51, or the cou- 
pon below, to order 4 or 8 issues of 
Ahoyl's AmigaUser (published quar- 
terly), 12 or 24 issues of Ahoy! (pub- 
lished 8 times a year) , or one or two 
full years of both magazines (4 issues 
of Ahoyl's AmigaUser and 8 issues of 
Ahoy!)— all at substantial savings over 
the cover price! 
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□ 12 issues of Ahoy! for $23.00 ($3000 Canada and elsewhere) 
J □ 24 issues of Ahoy! for $44,00 ($55L00 Canada and elsewhere) 

i □ 4 issues of Ahoyl's AmigaUser for $&00 ($1000 Canada and elsewhere) 
I D 8 issues of Ahoyl's AmigaUser for $1500 ($1.9.00 Canada and elsewhere) 
I □ 8 issues of Ahoy! and 4 issues of Ahoyl's AmigaUser for $23.00 
($30.00 Canada and elsewhere) 

□ 16 issues of Ahoy! and 8 issues of Ahoyl's AmigaUser for $44.00 
($55.00 Canada and elsewhere) 



Name., 



Address. 
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_State_ 



-Zip, 



Send coupon or facsimile to: ION INTERNATIONAL INC 
45 West 34th Street -Suite 500, New York, NY 10001 
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menus that erase themselves after use. The commands are 
simple and straightforward, requiring very little explanation. 

To move forward in the dungeon, push the joystick for- 
ward. The word "MOVE!" will appear at the bottom of the 
screen, there will be a slight pause, and you will be stand- 
ing one block forward from where you were. To turn left, 
move the joystick left. To turn right, move the joystick right. 
To move back, pull the joystick back. 

If the block you are standing in has anything in it, the 
bottom line of the screen announces it at the left. If there 
is a monster in the block with you, the bottom line tells 
you at the far right. 

lb access the main menu, you must be standing in a block 
not occupied by a monster. To pull the menu down, push 
the fire button and simultaneously pull back on the joy- 
stick. The menu appears in blue on the screen, with a se- 
lection of thirteen commands to choose from. No creature 
can attack while you're in the menu. 

You can move from one selection to another by moving 
the highlighted choice in white with the joystick. Push the 
fire button to select. 

The thirteen commands in the main menu are TAKE, 
DROP, LEFT HAND, RIGHT HAND, ARMOR, AS- 
CEND, DESCEND, EXAMINE, INCANT, QUAFF, 
SEARCH, INVENTORY, and EXIT MENU. The last eras- 
es the main menu window and returns you to real time ad- 
venture in the dungeon. Otherwise, you can push the fire 
button whenever you are finished reading a message or look- 
ing at a sub-menu display window, in order to close it and 
return to the main menu. 

TAKE and DROP allow you to pick up and dispose of 
objects for your inventory. TAKE automatically picks up 
whatever is in the block with you, providing you do not 
already have one. DROP allows you to select from one of 
the four classes of objects you can carry, which read on 
the sub-menu as WEAPON, ARMOR, SPECIFIC ITEM, 
and TREASURE. The last entry is EXIT MENU, in case 
you change your mind and need to escape from the 
sub-menu. 

LEFT HAND allows you to locate a weapon from your 
inventory and place it in your left hand, your fighting ap- 
pendage. RIGHT HAND allows you to hold an object from 
the SPECIFIC ITEMS menu of your possessions. ARMOR 
permits you to select what you will be wearing. Remem- 
ber, if you have not selected it from the menu, you are empty 
handed, nb matter what you may be carrying. It is possi- 
ble to be beaten to death by a flying bat if you have a ba- 
zooka in your inventory but have not placed it in your left 
hand so that you can fight with it. 

These commands are very versatile, and many of them 
are interrelated. You must be holding the compass, for in- 
stance, in order to know what direction you are facing. 
ASCEND and DESCEND allow you to do just that, if 
you come across a shaft. You'll need a rope and a steel 
grappling hook before you can climb up or down. 

EXAMINE is also a very versatile command, which you 
use to look closely at an object in the inventory. You can 



ity. For example, although common sense might dictate that 
a hand axe would be a better weapon than a dagger, a dag- 
ger of excellent workmanship would probably be superior 



to a hand axe of mediocre or common workmanship. It is 
left to the discretion of the adventurer. Other objects can 
also be examined, with various results. I'd like to leave se- 
crets for the player to discover, rather than spoil the fun. 

Anything that can be held in the right hand can be IN- 
CANTed, which means calling upon its mystical or arcane 
properties. Don't expect much from INCANTuig a com- 
pass, but you might try INCANTing suspicious items like 
the mithril ring (assuming you are in the right locations). 
INCANT has different effects, depending on the artifact. 

QUAFF means to take a swallow of healing elixir, which 
you cany in one pint servings. It gives you strength for 
battle and may save you life at an opportune time. 

SEARCH looks for traps four blocks forward of your cur- 
rent location, Use this command frequently, or you'll find 
yourself falling into spiked pits, getting impaled on spears, 
and becoming tangled in tripwires. Your adventure will be 
cut short quickly if you are not cautious. 

INVENTORY prints out four windows displaying every- 
thing you have. 

Remember, your long-term goal in the Tomb of Horror 
is to acquire the Alchemy Stone, and all the options on the 
menu can assist you toward this end one way or another. 

Once you have obtained the Alchemy Stone, return to 
the surface world by ASCENDing through the shaft on the 
first level in the far northwest corner, and win the game. 

I'm certain the game will provide you with hour after hour 
of entertainment. The quickest game I've played success- 
fully required 45 minutes to get the Stone and return to 
the upper level. 

The whole window system used in Tomb of Horror would 
not be possible without the use of Shawn K. Smith's clever 
memory move command from the June '87 Tips Ahoy!, 
which uses the built-in ROM routines to stash and save text 
and color information in a buffer above BASIC memory 
set aside for the purpose. My thanks to Shawn for the use 
of his short ML tip. 

The game is in two parts: a BASIC section and a binary 
file. Be certain that the Flankspeed file is named correctly 
so that the main program can load it into memory. 

Tomb of Horror contains numerous shifted spaces which 
must be typed in correctly, because the program uses ex- 
tended background mode and requires shifted characters 
to generate different colors. Be especially careful when 
typing in the game. 

Giving credit where credit is due, Td like to pay tribute 
to the game Dungeons ofDaggomth for the Tandy TRS-80 
as the driving force that compelled me to create my own 
3-D games for the C-64. Ever since I saw this game back 
in the summer of 1985, I've been striving to create a 3-D 
game as good or better. 

If you think I succeeded, or failed miserably, please let 
me know. I sincerely enjoy reading mail, both critical and 
flattering, and would like to hear what all Ahoy! readers 
think of Tomb of Horror, or any other games I've created 
in the past. Hearing the voice of the readers gives direc- 
tion to my efforts. If you would really like to see "just one 



zine space again, let me know, c/o Ahoy! You might see 
one of your suggestions incorporated into a game in the 
future! □ SEE PROGRAM LISTING ON PAGE 72 
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Continued from page 23 
an aircraft carrier! Better still, Jet in- 
terfaces with the entire library of FS 
Scenery Disks (as does this new pro- 
gram), so computer pilous can wage 
contemporary high-speed air combat 
over just about any city on Earth, 

Stealth Mission, written by Steve 
Setzler and "directed" by Bruce Art- 
wick, represents the latest wrinkle in 
the ongoing saga of the software Ica- 
rus. Unlike Jet, it does not contribute 
a quantum leap forward in terms of de- 
sign. Technologically, however, it push- 
es the Commodore 64/128 envelope 
well beyond the blue horizon, to a 
whole new level of animation and 
frame rates. 

The visual integrity in all cockpit 
displays is absolutely incredible. The 
program never freezes in order to load 
new data, but rolls smoothly with the 
exception of occasional color flip-Hops. 

The emphasis here is not so much 
on the simulation as on the flight and 
combat elements. The fact is, the air- 
craft being simulated here -F- 19 Stealth 
Fighter, Navy F-14 Tomcat, and the ex- 
perimental forward-swept wing X-29— 
could probably be flown by chimpan- 
zees. These aircraft do everything but 
reproduce themselves. SubLOGIC 
made the design almost idiotproof. Sin- 
gle button commands allow the fight- 
ers to locate and rendezvous with a re- 
fueling plane. There's even an auto- 
landing feature. All this flight lacks is 
Coca-Cola in the cockpit. 

Stealth Mission offers eight scenar- 
ios, selected from an onscreen menu. 
These missions range from easy to in- 
termediate to advanced, and include a 
mountain conflict, a battle at sea, a 
marathon bomber scenario, and a visu- 
ally appealing mission in which the air 
combat occurs over a collection of an- 
cient ruins. 

A second screen allows the user to 
set difficulty (0-9), select an aircraft, 
and choose its armament (Sidewinder, 
Sparrow, and Maverick missiles, four 
kinds of bombs, AGM-84 Harpoon, 
air-to-air and air-to-ground Stealth mis- 
siles, and an M6I cannon). 

Instrumentation includes all the stan- 
dard items (HUD, air speed indicator, 
altimeter, fuel level, thrust, clock, 
brake and landing gear status, altitude 
indicator, etc.). There are also naviga- 
tional aids (ADF receiver and bearing 
indicator, VOR receiver and omnibear- 



SOFTWARE SECTION 

ing indicator, DME and ILS glide- 
slope needle) and weapons/defense 
controls (damage indicator, radar, tar- 
get-tracking computer, ECM. weapons 
select, etc.). 

The controls will seem immediate- 
ly familiar to anyone who's ever used 
a flight simulator (or, heck, even a real 
jet): throttle, elevator, aileron controls, 
airbrakes, landing gear, etc. Stealth 
Mission also allows for joystick con- 
trol of ftight operations. 

In addition to the standard FS/Jet op- 
tions (multiple viewpoints, zoom, con- 
trol tower view, spotter plane), this pro- 
gram adds a "missile's eye view" to in- 
timately track the killer projectiles as 
they zoom toward a computer- locked 
target. 

Is Stealth Mission exciting? Yes, but 
not as exciting as it should be. The 
problems are almost intrinsic to the 
crafts being simulated. They are easy 
to fly and the onboard computers sta- 
bilize them quickly when danger ap- 
proaches. As a result of all this con- 
venience, the player doesn't have much 
to do for long stretches of time. The 
upside, of course, is that users are free 
to concentrate on combat. However, 
these air battles have a cold, somewhat 
antiseptic feel. Instead of simply lin- 
ing up a target in your sights and blast- 
ing away, the computer must be locket! 
on before a weapon is discharged , and 
that won't happen until the target is 
within range. 

The weaponry is impressive as all 
gctout. with a choice of 11 different 
missiles, bombs, and cannon, but the 
results arc less than satisfying. 

With all the visual marvels Sub- 
LOGIC produced for this game, it's a 
shame more time wasn't spent simula- 
ting the results of the warfare. Explo- 
sions are nothing special, from either 
a visual or audio perspective, and we 
aren't even treated to the sight of an en- 
emy aircraft crashing in flames! 

The overall package, however, is ex- 
cellent. The game comes with maps, 
extensive and well-written documenta- 
tion, and a quick-reterencc card. 
Stealth Mission is an incredible pro- 
gramming accomplishment that de- 
serves (and will doubtless have) the at- 
tention of anyone interested in the state 
of the combat flight simulation art. 

SubLOGIC Corp., 713 Edgebrook 
Dr.. Champaign. IL 61820 (phone: 217- 
359-8482). -Bit! Kuitkei 



READER SERVICE INDEX 


If you wish to receive fret- additional in- 
formation about the products and servic- 
es of any of the companies listed below, 
circle the corresponding reader service 
number! s) on the adjacent card. 


Pagu Company 


nc. No, 


C-4 Access Software, Inc. 


165 


10 Activision/Gamestar 


175 


59 Alsoft 


163 


20 Avalon Hill 


152 


20 Avaatage/ Accolade 


151 


53 Berkeley Softworks 


177 


9 Chip Ijevel Designs 


- 


C-2 CompuServe 


145 


24-29 Computer Direct 


166 


11 C.O.M.B. 


- 



9 


Chip I^vel Designs 


— 


C-2 


CompuServe 


145 


24-29 Computer Direct 


166 


11 


C.O.M.B. 


— 


22 


Data East 


154 


11 


Electronic Arts/Datasoft 


176 


12 


ESP Corporation 


171 


7 


Free Spirit Software 


155 


56 


iht Software 


172 


8 


Intracorp, Inc. 


174 


42,43 Lyco Computer 


157 


C-3 


Montgomery Grant 


159 


12 


P.A.V.Y. Software 


173 


54 


Phoenix Electronics Inc. 


169 


17 


Q-Link 


158 


21 


Software Simulations 


161 


4,5 


Software Support Int'I 


167 


15 


Software Support Int'l 


162 


81 


Software Toolworks 


178 


22 


SubLOGIC Corporation 


153 


55 


The Ennon Corporation 


140 


31 


Tevex 


156 


35 


U.S.S. Photo 


160 


16 


Wedgwood Rental 


164 


10 


Xetec Inc. 


170 


6 


Ahoy! Disk Magazine 


— 


41 


Ahoy! Back Issues 


— 


49 


Ahoy! Subscription 


- 


52 


Ahoy! Disk 


- 


56 


Ahoy! Binders 


- 


Tht | 


niblishcr cannot assume responsibility 

for errors in Ihe above listing. 
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Why type In the listings In thii month's Ahoyl when we've done It for you? All the programs in this issue 
are available on the current Ahoyl Disk for $8.95. Isn't your time worth more than that? 

Use the coupon at the bottom of this page to order disks for Individual months, 
a disk subscription, or the special anthology disks described below. .-. — £iv|*** ** 
(Vou can also subscribe to the Ahoyl Disk Magazine— 
disk and magazine packaged together at a spe- - s 11 

-* at i*- ,T 



cial reduced rate. See the card bound 
between pages 50 and 51.) 
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We've collected Ahoyl 's 

best programs onto the 

Anthology Disks described here. 

Please note that many of these programs 

will be unusable without the documentation printed 

in the issues of Ahoy! listed in parentheses. 



SINGLE ISSUE AND SUBSCRIPTION PRICES 



(Postage and Handling Included) 
□ July '88 Ahoy! Disk 


U.S.A. 
$ 8.95 


CANADA 

$ 12.95 


ELSEWHERE 
$ 13.95 


□ 12-Month Disk Subscription 


$ 79,95 


$ 99.95 


S124.95 


□ 24-Month Disk Subscription 


$149.95 


$179.95 


- 



ANTHOLOGY DISKS $10.95 EACH 



3 Best of '84 

□ Best of '85 
Q Best of '86 

□ Best of C-128 



~i Best Utilities 
J Best Utilities II 

□ Best Games 

□ Best Games II 



BACK ISSUES $8.95 

In Canada add $2.00 per issue; outside US 
and Canada add $4.00 per issue. 

□ $3.95 Q $8,95 

□ $8.95 Q $8-95 

□ $895 □ $8.95 

□ $8.95 Q, $8.95 



Send coupon or facsimile to: Ahoy! Program Disk 

Ion International Inc. 
45 West 34th Street, Suite 500 
New York, NY 10001 






NAME 

ADDRESS. 
CITY 



.STATE. 



ZIP_ 



Make check or money order payable to Double L Software. N.Y. State Residents must add B'A% sales tax. 
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geoCALC 128 
Berkeley Softworks 
Commodore 128 
Disk; $69.95 

Berkeley has been busy evangelizing 
the Commodore world on the benefits 
of their Graphic Environment Operat- 
ing System (GEOS). Part 2 of that mis- 
sion has been to provide a bevy of ap- 
plications which utilize the power of 
the icon. With that in mind they have 
released a series of C-128 products 
which take advantage of the machine's 
inherent advantages over the 64. 

One of those releases is geoCalc 128, 
the graphic interface spreadsheet which 
accepts worksheets produced by its C- 
64 counterpart. This copy protected 
disk requires GEOS 128 version 1.2 or 
later, a 128, an 80 column RGBI mon- 
itor, a joystick or a mouse, and a disk 
drive (1541 or 1571). 

Optional equipment includes a print- 
er, a second disk drive, and a 1750 
RAM Expansion Unit (REU). Every- 
one understands the benefits of a print- 
er and a second disk drive— hardcopy 
and increased file efficiency -but the 
REU is another matter. With it, spread- 
sheets recalculate fester, and larger 
spreadsheets are possible; therefore less 
time is spent waiting. That's the whole 
reason for using computers in the first 
place. 

The Basics 

Though copy protected, the applica- 
tion provides a way to make backup 
copies, the actual work disks. As with 
most things GEOS it is usually best to 
stay with the routines provided on the 
disks, whether you're duplicating en- 
tire disks or merely copying files. 

gC allows a worksheet of up to 256 
rows by 112 columns for a cell capacity 
over 28,000. It provides 12 digit accur- 
acy for addition, subtraction, division, 
multiplication, and percentage calcula- 
tions, and 9 place accuracy for trigon- 
ometric, exponential, logarithmic, and 
financial (present/future values, etc.) 
operations. Up to 200 characters can 
reside in a single cell. 

Almost half of the menu options 
have keyboard alternatives; the screen 
display is logical and well-executed. 
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Useful for light duty jobs at best. 
READER SERVICE NO. 177 

Cell widths can be changed from 3 to 
31 characters, with 12 being the default. 
Relative and absolute references are 
supported, as are named ranges and the 
ability to copy, cut, clear, or paste data 
(and functions) within a sheet. 

Just over a dozen display formats arc 
available ($0.0, 0.00, 0.0000, for exam- 
ple); and information can be imported 
or exported to other GEOS applications 
via the scrap function. Alphanumeric 
alignment functions include centering 
in a cell, and left or right justification. 
Character attributes can be displayed 
and printed as italic, bold, bold-italic, 
or plain. 

Advanced Features— Somewhat 

geoCalc 128 handles functions such 
as ATAN (arctangent), COS (cosine), 
LOG (logarithm), RAND (random), 
SIN (sine), SQRT (square root), and 
TAN (tangent), among others. These, 
and the other 16 functions, represent 
the best the program has to offer, math- 
ematically speaking. 

gC does make use of the 128's 
uniqueness- somewhat. The numeric 
keypad is supported; likewise, its EN- 
TER key functions the same as the RE- 
TURN key. The individual cursor keys 
work, but the function keys are sorely 
neglected. So is the NO SCROLL key 
and the HELP key. (There is no on- 
line help, and judging from the condi- 



tion of my manual, there should be.) 
The ability to access an REU's ex- 
tra memory is excellent, however, as 
are the numerous ways (five!) to move 
the cursor about the worksheet. 

Entire rows or columns can be selec- 
ted by clicking on the row or column's 
alphabetic or numeric label. That is, 
all the cells in column B can be high- 
lighted (ranged) by moving the cursor 
over the "B" and clicking the left mouse 
button. The same applies to numeric 
rows. 

Manual Amnesia 

The Dr. Jekyll/Mr. Hyde mix contin- 
ues as the manual covers both the 64 
and the 128, with 128-specific info 
noted in highlighted boxes. But all the 
screen illustrations, and there are plen- 
ty, arc from the 128 version. 

Chapter 3 is a tutorial of sorts. Chap- 
ter 4 continues the process in greater 
depth until, in my manual anyway, page 
4-6 is reached. That's where Chapter 
4 ends abruptly. Full explanations of 
the "advanced" functions and other bits 
of information arc supposed to be on 
pages 4-7 to 4-41, give or take a page 
or two. (Supposed existence of the 
other pages was revealed by scanning 
the index for the whereabouts of infor- 
mation concerning the trigonometric 
functions.) 

An outright error is displayed in the 
screen graphic on page 4 in Chapter 
3. A call-out arrow points to the check- 
mark entry icon, calling it the text en- 
try cursor. The cursor is nowhere to 
be found, further confusing the issue 
and making it more difficult to deter- 
mine the true slate of affairs. 

Other Anomalies 

Some functions are only available via 
the keyboard, a strange turn of events 
considering the entire reason this pro- 
gram exists - a graphic interface with 
icons and pulldown menus. 

One such option is the cancel com- 
mand, useful to abort an incorrect pro- 
cedure or calculation; the other facili- 
tates marking large chunks of cells for 
range manipulations. Both are impor- 
tant by any standards. 

The fact that there are two data win- 
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dows available is nothing new either. 
Many spreadsheets have the ability to 
split a display into an active an an in- 
active window, and then scroll through 
the active one. gC only allows horizon- 
tal splits -that's like building half a 
house. 

To install geoCalc 128 with a 1571 
drive, the software resets it to act as 
a 1541. While the procedure is noted 
in the manual, the need for this kind 
Of manipulation lends credence to the 
belief that gC 128 is nothing more than 
a wanned over gC for the 64. That 
would be okay if all of the 128's unique 
features were addressed, but they're not. 

The program is described as being 
"intelligent," a phrase usually reserved 
for spreadsheets which use a sparse 
memory matrix to recalculate only cells 
containing entries. This method produ- 
ces faster results; however, it is not sup- 
ported by geoCalc 128. Nowhere is the 
term "intelligent" properly described or 
explained. 

After making a big to-do about the 
high quality of the printed output, it 
seems strange that the Apple Laser- 



Writer is not supported. After all, sev- 
eral other GEOS products include driv- 
ers for this standard setting printer. 
Lack of a device driver for this high- 
end printer muddies the water over the 
true level of the program's "presenta- 
tion" quality printing. 

How Does It Add Up? 

geoCalc 128 is a fine concept, but 
it has very little mathematical muscle. 
It cannot import other spreadsheet files 
(beyond those from the C-64 geoCalc); 
it does not support truly advanced fea- 
tures and functions (macros, condition- 
al searches, etc.); and the manual is er- 
roneous and incomplete. 

Its prime attraction is GEOS's graph- 
ic, intuitive interface. This "window on 
the world" provides extreme ease of 
learning, a comfortable feeling if you're 
already familiar with GEOS programs, 
and ease of use. 

Unfortunately, in this case, that is not 
enough. Mice, pulldown menus, and 
icons do not make a program; they arc 
merely tools which drive or feed an ap- 
plication. The software must do some- 




A POWER SUPPLY THAT 
WORKS AND 

WORKS AND 

WORKS 

AS REVIEWED IN THE 
MARCH 88 AHOY. 



CPS-10 $54.95 

CPS-30 $39.95 

CPS-128 $79.95 

CPS-500 $99.95 

The standard by which all others are measured. 
Your replacement power supply for Commadore computers. 

PHOENIX 

ELECTRONICS, INC. 

P.O. Box 156, 314 Court — Clay Center, KS 67432 

PHONE; (913) 632-2159 

Charge to Visa or Mastercharge 



54 AHOY! 



Render Service No. 189 



REVIEWS 



thing substantial, must provide a cost- 
effective solution to a need. In those 
regards, geoCalc 128 is not much more 
than a pretty face. At best, it is useful 
for light duty jobs, 

Berkeley Softworks, 2150 Shattuck 
Avenue, Berkeley, CA 94704 (phone: 
415-644-0883). -Ted Salamone 

TISAR 128 
CW Data Labs 
Commodore 128 
Disk; $89.95 

The first thing you should understand 
about TISAR 128 is that TISAR is an 
acronym that stands for Total Informa- 
tion Storage And Retrieval. Having that 
as its name and its apparent goal, you'll 
probably guess that it is a database. 
More than that, however, it is a data- 
base that has been optimized for small 
business use -one that will create and 
print point-of-sale invoices, database 
records with monthly or yearly totals 
of accounts received and receivable, 
and a perpetual inventory based on 
sales. 

As such, it is one of the most power- 
ful programs I've seen for the C-128, 
even though it will not have an audi- 
ence as large as would be the case with 
a "free-form" relational database. 

And tor those who may despair be- 
cause they've been told graphics are all 
but impossible in the C-128's 80-col- 
umn mode, we'll point out that TISAR 
128 uses them almost to a fault: sim- 
ple graphics, true, but eye-catching, as 
is their intent. 

Although it is possible to pick one 
or another section of TISAR 128 and 
use it exclusively, the heart of the sys- 
tem as designed is the database. Since 
we must use the Commodore 1571 disk 
drive with double-sided disks, it is pos- 
sible to install the database program 
and up to 500 records on a single disk. 
(Almost necessary for efficiency, since 
TISAR supports only one drive.) 

Depending upon whether your busi- 
ness is sales/service or sales/market- 
ing, youll pick the appropriate program 
for the job. TISAR 128 supplies you 
with two service disks and one mar- 
keting disk. With no ability to edit or 
customize database fields, it is impor- 
tant that variations are provided, but 
you may still have to bend your cur- 
rent record-keeping methods to fit. 

Fields provided are for name, ad- 
dress, phone, part number, remarks, 



An open letter to 

the readers of Ahoy 

Richard Olsen 

President: The Ennon Corporation 



My purpose in writing is to ask 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now. However^ there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other that through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way - 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid, 
they arc merely creative and do 
absolutely nothing to foster 
exploration in a new applications. The 
results: technology is never used to 
its fullest potential. But what's worst 
of all is that these competitive 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a result, the 
infinitesimal amount of technology 
that finally trickles down to you is: 

A. So expensive you are pro- 

hibited from procurring it 

B. Shamefully inferior to the 

real thing 
remember. .you can buy high-tech 
consumer goods, but never the 
technology that creates it. 

This same situtation confronts 
you in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. The are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 



This would benefit everyone in the 
long run. 

I have met with little success. 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when 1 say AN-83 is 
the real thing. It is a true "thinking" 
program that receives an initial 
"knowledge base" from a data file 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from that data 
and adds it to its memory. 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base — just 
like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it, 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer. 

FREE SOFTWARE 

In addition, you will be receiving 
free, Eliza-the most amazing 
conversational A.l. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 



for the micro. Their extensive, easy 
to understand commands walk you 
through the source code, 
step by step. It's suprisingly simple. 
Even the beginner can understand 
the "How and Why of A.I." 
A Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, I 
am pleased to say nobody will miss 
this chance because they could not 
afford it. AN-83 is priced to cover 
just a fraction of its research and 
developmental costs. 

The "Thinking" Program AN-83 is 
just S23.57. What's more, the 
astounding Eliza is yours, absolutely 
free. 

I guess it's obvious that I want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but I 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer. You just won't believe it. 
Please take this opportunity now. 
Simply fill out your coupon below 
and mail today. Don't miss out. It's 
such a wonderful future of 
discovery and excitement that 
awaits you. 

With the very best of wishes, 



Richard Olscn 

D Please send me the 
"Thinking" Program AN — 83 
for only S23.57, 
In addition, I will receive 
absolutely FREE Eliza - the 
most impressive conversational 
Artificial Intelligence program to 
date 

Available in disk only. 

For use with the COMMODORE 64 



Name 

Address 

City 

State Zip Code. 



THE ENNON CORPORATION 

1718 Connecticut Ave. N.W., Suite 410 
Washington, D.C. 20009 

Canadian orders must be in U.S. dollars. 
COMMODORE 64 is a registered trademark. 
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i Disk Loading and Savins of Designs 
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Architects, Engineers, Designers, 
Programmers, Students 
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Don't be taught at 
sea the next lime you 
need valuable pro- 
gramming informa- 
tion from a back is- 
sue of Ahoy! Our official hinders (urn a 
year's worth of Ahoy! into a textbook on 
Commodore computing! These quality- 
constructed binders use metal rods to 
hold each magazine individually, allow- 
ing easy reference to any issue without 
removal. Sporting a navy blue casing 
with a gold Ahoy! logo imprinted on the 
spine, these binders will be the pride of 
your computer bookshelf. 

To order, send $12,45 (US funds} for 
each hinder desired to: 
Ahoy! Binders 

45 West 34th Street -Suite 500 
New York, NY 10001 

{Outside Continental US add $2 30 per hinder. Al- 
low 4 to o weeks for delivery.) 



estimated price, deposit, and COD. If, 
for example, an item is purchased for 
$500.00 and a deposit of $100,00 is 
made, the larger amount is entered as 
Estimate. COD entries occur only 
when the balance is received. In this 
way, TISAR allows you to see at a 
glance the amount of money received 
for a particular period (month or year) 
as well as money owed you for that 
same period. 

It does this through one of the many 
search features -records can be 
searched on any field and printed or 
displayed. Additionally, there is a 
cross-search feature which allows sorts 
on multiple fields. As an example, if 
you wanted to know how many people 
named Smith had bought widgets dur- 
ing the month of March, you could. 

In screen displays, TISAR will pre- 
sent the records in a scrolling form 
with outstanding amounts highlighted 
in red, or as a bar chart in which the 
amounts received will help you to get 
a handle on the month-to-monlh ups 
and downs of your business. 

Unfortunately for its stated use as a 
point-of-sale invoicing system, a data- 
base record must be created before an 
invoice can be filled out. While this 
would be fine if all customers were re- 
peat customers -and dius a database 
record on each already existed — I feel 
that here the long process would slow 
things to the point that youti be losing 
customers. As an alternative, there 
might be some value in using TISAR 
as a "back-room entry" system, where 
the true accounting is done after the 
sale and the invoice would be mailed 
to the customer simply as a confirma- 
tion of the transaction. 

In beginning an invoice, you would 
first probably choose to customize it 
by having the printed copy show your 
business name, address, and phone 
number. As is the case with each of its 
many routines, TISAR will prompt you 
for each separate entry, and many times 
will do this by creating a flashing win- 
dow on the screen. 

Following this is a section for print- 
ing your company's guarantee or any 
other message you may need to impart: 
"No refunds after ten days," "Repairs 
left over thirty days," etc. 

The invoice form itself will depend 
upon whether your business is sales 
and marketing or sales and service. As 
it does with the databases, TISAR 128 
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provides a different invoice for each 
type of business. When dealing with 
invoices — as opposed to database rec- 
ords—it is necessary to have several 
formatted disks on hand. Each disk will 
hold 125 invoice records, and this in 
spite of the fact that they are double- 
sided disks formatted in the 1571 drive. 

At the point of sale, enter the cus- 
tomer name; quantity, part number; de- 
scription of goods or services; price 
per unit; sales tax rate (or tax exempt); 
and the amount of deposit or payment. 
All this is in answer to screen prompts, 
and fields that do not apply can be 
avoided by entering "0". Once all en- 
tries have been made, the invoice, com- 
plete with subtotal, total, deposit, and 
balance will be printed to the screen 
and can be sent to your printer, where 
the heading and guarantee messages 
will also be printed. 

The third part of the system is called 
TTSAR ICM -Inventory Control Mod- 
ule. With this, you can store records 
of up to 1000 individual items on a 
disk, and there are fields for adding to 
stock as new merchandise is received 
or deleted from stock as items are sold. 

To accomplish the latter, ICM will 
process the invoice data disks, reading 
the items sold and subtracting them 
from inventory, allowing you a much 
better feel for the pulse of your busi- 
ness—allowing you to know what items 
are selling, when they are selling, and 
the rate of movement. In addition, each 
item can be keyed to a reorder point: 
when only 50 widgets are left in inven- 
tory, it is time to order more. 

With selective display and printing 
options, the ICM module will allow 
you a look at all inventory items or only 
those that have reached the reorder 
point. 

There is no doubt that TISAR 128 can 
be of value to small businesses in help- 
ing them to gain better control of the 
record-keeping and inventory process- 
es, but it does have shortcomings. 

First, with the number of disks and 
programs involved, it should have been 
written for use on a hard disk or, at 
the very least, to support two disk 
drives. Second, it is a bit too cumber- 
some to be used as a point-of-sale sys- 
tem, though this could have been alle- 
viated by turning the program around. 
If the database were created from the 
invoice, it would be a much faster sys- 
Continued on page 81 
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ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle the 
bits in your cerebral random access memory. We 
invite you to send your solutions to: 

Commodores, c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be sure 
to identify the name and number of the problems you arc 
solving. Put your name and address on the listings as well. 
Show sample runs if possible. Briefly describe your solutions 
and tell what makes them unique or interesting, if they are. 
You must enclose a stamped, self-addressed envelope if you 
want any of your materials returned. Solutions received by 
the middle of the month shown on the magazine cover are 
most likely to be discussed, but you may send solutions 
and comments any time. Your original programming prob- 
lems, suggestions, and ideas are equally welcome. The best 
ones will become Commodares\ 



PROBLEM #55-1: SIG DIGS 

This problem was submitted by Jim Speers (Nilcs, Ml). 
Write the shortest program which accepts any integer from 
to 32767 and prints out the number of l's in its binary 
representation. The title of this problem comes from the 
more advanced challenge which is to accept any whole num- 
ber from to 65535 and print out the number of l's, signif- 
icant 0's (ignore leading 0's), and total number of SIGnifi- 
cant DIGits in its binary representation. (Jim thinks that 
this second challenge cannot be done in one line.) 

For example, if the user enters 65, the computer responds 
"2" for the first challenge, since the binary value of 65 is 
01000001 which contains two l's. For the second challenge, 
the computer responds "2, 5, T since there are two l's, five 
non-leading 0's, and seven significant digits. 



PROBLEM #55-2: RAPID RANDOMIZER 

Try this one from Justin Smalley {Boulder, CO). Start 
with the following array definition: 



10 N-100 

I: NEXT 



DIM X(N)i FOR 1=1 TO N: X(I) = 



Write the rest of the program which will rearrange this ar- 
ray in random order as quickly as possible. Add line 20 
to start the timer and line 40 to stop the timer and print 
the time required to shuffle the array. 

20 TO = TI 



40 PRINT TI-T0 "JIFFIES" 
Start your solution at line 30. 



PROBLEM #55-3: UMJVMBLED WORDS 

Eddie Byrd (Ste. Genevieve, MO) wants to see every pos- 
sible combination (or permutation) of the letters of any five- 
or six-lcttcr word entered by the user. He wants his com- 
puter to help solve those scrambled-word puzzles in the 
newspaper. Can you help? (Readers with a good collection 
of Ahoy! back issues may not have much trouble with this 
one.) 



PROBLEM #55-4: POLAR GRAPHICS 

This one from Thomson Fung (San Diego, CA) should 
not be too difficult if you have a C-128 or use Simons BASK 
on the C-64. Very simply, write a program to plot a graph 
of the equation 

R = 10*T*C0S(T)*SIN(T) 

in polar coordinates. Here R stands for the distance of each 
point from the origin. T represents the angle of a line from 
the origin to the given point. If you let T go from to 25.2 
in steps of 0.1, you will be rewarded with an interesting 
butterfly. 



First of all I must confess to a blunder regarding the 
discussion of Problem #48-4: More Income in the April 
issue of Ahoy! The problem was the math classic where 
you are given the option of receiving $15000 per year 
under one of two plans. Plan A gives a raise of $750 every 
six months. Plan B gives a raise of $3000 every year. 
The challenge was to write a program to display the an- 
nual and cumulative pay for the two plans. I chastised 
the readers for their confusion on this problem, since 
it seemed that most people misinterpreted it. 

Fred Simon (Lindenwold, NJ) sent me a letter stating 
that my readers were not the only ones confused. Al- 
though I disagree with Fred's interpretation of the prob- 
lem, it caused me to rethink the whole situation. Here 
(I think) is the proper answer to the problem. Plan A 
is better if you work for just one year; otherwise Plan 
B is better. (I originally said that Plan A was significantly 
better overall, contrary to common sense.) 

Analyze it this way. Every six months, Plan A increas- 
es your base annual salary (BAS) by $750. Your pay for 
any six month period is the current BAS divided by two. 
For example, your BAS for the first six months is clear- 
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ly $15000, and your six months' salary is $15000/2 or 
$7500. Everyone agrees on that. 

At the end of six months, your BAS goes up to $15750, 
so your pay for the second six months is $15750/2 or 
$7875. Your total first-year earnings arc $15375 (57500 + 
$7875). After one year, your BAS is raised another $750 
to $16500. You earn $16500/2 ($8250) for the first six 
months of the second year. Then your BAS is raised to 
S17250, and you get $17250/2 ($8625) for the fourth six- 
month period. Your total over two years is $32250. 

With Plan B, your BAS is $15000 for the first year, 
and that is what you receive. Your BAS is raised to $18000 
which is your second year's salary. At the end of two 
years, you have accumulated $33000. Plan B income is 
ahead of Plan A income by the middle of the second year. 

Here is Fred's program adapted slightly to agree with 
this analysis. 

•2 REM C0MM0DARES PROBLEM #48-1 : 

•3 REM MORE INCOME 

• 4 REM ================================== 

•10 PRINT"YEAR SALARY A T0TAL[3" "]SALARY 

B TOTAL" 
•20 BAS=15000: SA=BAS: SB=BAS: TA=0: TB=0 
•30 RA=750: RB=3000 
•40 FOR YEAR=1 TO 10 
•50 TA=TA+SA/2+(SA+RA)/2 
•60 TB=TB+SB 

•70 PRINT YEAR;TAB(5);"$"SA;"$";TA; 
•80 PRINT TAB(22);"$"SB;"$"TB 
•90 SA=SA+2*RA; SB=SB+RB: NEXT 

SA and SB are the BAS for Plan A and Plan B. TA and 
TB are the cumulative totals. 

An interesting aspect of this problem is that Plan A 
is a better plan if it offers semiannual raises of $1500 
as opposed to Plan B's annual $3000 raise. RA in the 
program is the amount of Plan A's raise. In fact, if you 
work for less than eight years, you would be better off 
with Plan A if it offered increases of only $1400 semi- 
annually. (Can anyone figure out the break even point, 
that is, the amount of Plan A's increase which is equiv- 
alent to Plan B?) Experiment with the values and see what 
you come up with. Thanks to Fred for helping to straight- 
en this out. My apologies to anyone else whose solution 
was correct the first time around. 

Now on to new business. We will look at the best solu- 
tions to Commodores in the February issue of Ahoy! Prob- 
lem #50-1: Phone Decode was submitted by Pat McCon- 
ville (Manassas Park, VA). The user inputs a sequence 
of two-digit numbers representing letters encoded accord- 
ing to the telephone keypad. The computer decodes the 
numbers into letters. The first digit is the keypad num- 
ber. The second digit is the letter's position on that key. 
Since "D" is the first letter on the number 3 key, its code 
value is 31. U Q" and "Z" are not on the phone keypad, 
so they are assigned 77 and 99 respectively. 



Here is an interesting solution from Eddie Byrd (Ste. 
Genevieve, MO). 

•1 REM 

•2 REM C0MM0DARES PROBLEM #50-1 

•3 REM PHONE DECODE 

■4 REM SOLUTION BY 

■5 REM EDDIE BYRD 

•6 REM 

•10 A$="[20" "]ABC[7" "]DEF[7" "]GHI[7" " 

1JKL" 
•20 A$=A$+"[7" "]MN0[7" "]PRS[3" "]Q[3" " 

]TUV[7" "]WXY[5" "]Z" 
•30 INPUT A(1),A(2),A(3) 
•40 FOR X=l TO 3 
■50 PRINT MID$(A$,A(X),1); 
•60 NEXT: PRINT: GOTO 30 

Be careful typing the spaces in the definition of A$ since 
each character's position in A$ matches its encoded value. 
"D" is the 31st character in A$, and "Z" is the 99th char- 
acter. The MID$ statement selects the chosen charac- 
ters, one at a time. Eddie's method handles invalid num- 
bers greater than zero by returning the space character. 
To avoid an Illegal Quantity error if the user just press- 
es RETURN without entering a number, add this line: 

45 IF A(X)=0 THEN 60 

Don Wilkins (Burke, VA) transformed the numerical 
input into letters with the following formulas: 

L = 3*INT((N-20)/10) 

R = N-10*INT(N/10) 

C = L+R-((L+R)>16)+6*(R=7)+5*(R=9) 

N is the input number (20 < N < 100), The correspond- 
ing letter is printed with the statement 

PRINT CHR$.(64 + C) 

Don's program first checked for valid inputs. The last 
two addends in the formula for C correct for the letters 
"Q" and "Z". Recall that if (R=7) is true, its value is -1. 
Consequently 6*(R=7) subtracts six whenever R is sev- 
en. The middle term in the formula for C corrects all 
letters above "Q". 

Ernest Barkman (Athens, NY) suggested Problem 
#50-2: Short Sound. The idea is to write the shortest pro- 
gram which will generate a continuous sound, Ernest's 
solution for the C-64 or the C-128 is shown in line 21 
of the following program: 

•2 REM C0MM0DARES PROBLEM #50-2 : 

■3 REM SHORT SOUND 

•4 REM SOLUTIONS BY 

■5 REM ERNEST BARKMAN (LINE 21) 
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6 REM ERNEST BARKMAN SR. (22 & 23)* 

7 REM BOB RENAUD (24)* 

8 REM KEVIN ESHBACH (25) 

9 REM WALLACE LEEKER (26)* 

10 REM ===== (* = C-128 ONLY) ======== 

21 POKE 54296, RND(1)*9: RUN 

22 PRINT CHR$(7): GOTO 22 

23 A=RND(1)*7+65:PLAY CHR$(A):GOTO 23 

24 PRINT" [CNTRL G]":RUN 24 

25 F0RI=54272T054296 : POKEI , RND( 1 )*255 : NE 
XT: RUN 25 

•26 SOUND 1,999,1:RUN 26 

Calling the output of this program a "sound" is about the 
most we can do. "Raspiness" might be a more appropriate 
term. Still, the program takes only 18 keystrokes (using 
abbreviations, ignoring spaces, and disregarding the line 
number and the RETURN at the end of the line), and 
Ernest's challenge was for brevity. Note that this program 
takes one more keystroke on the C-128 than on the C-64. 
Why? "F SHIFT-O" is POKE on the C-64, but it is POT 
on the C-128. Use "PO SHIFT-K" on the C-128. 

This program randomly sets the volume of the sound 
generator. Why that should make a sound is not clear. 
Evidently this challenge generated some family rivalry. 
The solutions in lines 22 and 23 are from Ernest Bark- 
man Sr. (Orlando, FL) , cither Ernest's father or else quite 
a coincidence. 

Line 24 by Bob Rcnaud (Washington, MA) is an even 
shorter version of line 22. The CONTROL-G which 
beeps on the C-128 is entered in quote mode. Ignoring 
line numbers at the beginning and the end of the line, 
this program takes eight keystrokes using "?" for PRINT. 
This is undoubtedly the shortest program possible for solv- 
ing the problem. 

Not as short but producing more interesting sounds 
is line 25 from Kevin Eshbach (Sanatoga, PA). It POKEs 
random numbers into various SID registers. It runs on 
the C-64 or the C-128. Wallace Leeker (Lemay, MO) sent 
the program in line 26. The sound is a pure tone with 
a slight discontinuity each time the program is rerun. 
Jim Speers sent a similar solution. 

To run any of these, just type RUN followed by the 
appropriate line number. RUN 25 executes Kevin's pro- 
gram, for example. 

Now for Problem #50-3: Tricky Index from Justin 
Smalley (Boulder, CO). The problem is to write line 30 
to replace line 29 in the following program so that line 
40 prints the index vertically in columns rather than in 
rows as line 29 docs. The result is to have the same num- 
ber of rows and columns as produced by line 29, Justin 
mentioned that such a routine can be handy for printing 
out an alphabetized array. 

Jim Borden (Carlisle, PA) sent the following solution 
which takes advantage of the predefined variables. This 
allows his program to be easily modified for any num- 
ber of columns NC and any value of L. 



1 REM ================================== 

2 REM COMM0DARES PROBLEM #50-3 : 

3 REM TRICKY INDEX 

4 REM SOLUTION BY 

5 REM JIM BORDEN 

6 REM ================================== 

10 L=17: NC=5: NR=INT(L/NC) 

20 FOR R=0 TO NR: K=R*NC: FOR C=l TO NC 

29 REM I=K+C: IF I>L THEN END :REM GIVEN 

30 E=1-(NC*NR-L):D=C-E:I=R+1+(C-1)*(NR+1 
):IF D>-1 THEN I=I-D:IF R=NR AND C=E THE 
N END 

•40 PRINT I;: NEXT: PRINT: NEXT 

Jim mentioned that E in line 30 should have been de- 
fined in line 10, but the Commodore allowed changes only 
to line 30. Do you see the disadvantage of defining E 
in line 30? In this program, E will be defined 18 times, 
even though its value never changes. You should not de- 
fine a variable inside a FOR- NEXT loop unless its val- 
ue changes within the loop. 

Jim Speers suggested modifying line 40 so the results 
are printed in uniformly spaced columns. He used this 
statement on the C-128: 



40 PRINT USING'W 1 ;!;: NEXT:PRINT:NEXT 




RACE ANALYSIS SYSTEMS III 

PROVEN HANDICAPPING SOFTWARE FORTHE COMMODORE 
COMPUTER INCLUDESWINNINGMETHODSFOR HARNESS 
THOROUGHBRED. AND GREYHOUND RACING. 
ONLYS49.95 

ALSOFT * BOX 164 ■ DEPT. M ■ CLAIRTON, PA 15025 
PHONE (412) 233-4659 
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Bob Renaud converted the values to be printed into strings 
"padded" with spaces to give uniform columns. 

Many readers had fun solving Problem #50-4: Simple 
Simon. The challenge was to write the simplest program 
possible to create the Simon number-sequence memory 
game. The computer briefly displays three numbers. The 
user must remember them and enter them in order. The 
computer then adds another number to the sequence and 
displays die four-number sequence briefly. The user must 
enter them in correct order. This process continues until 
the user fails to enter the list correctly. 

This brief program from Judy Groth (Brooklyn, NY) 
solves the problem in only three lines. 



COMMODARES PROBLEM #50-4 

SIMPLE SIMON 
SOLUTION BY 

JUDY GROTH 



•1 REM 
•2 REM 
•3 REM 
■4 REM 
■5 REM 
•6 REM ================================= 

■10 DEFFNR(S)=INT((RND(S)*9)+1):F0RX=1T03 

:A$=A$+MID$(STR$(FNR(1)),2,1): NEXT: PRINT 

A$ 
•20 FORD=1TOX*300:NEXT: PRINT" [ CLEAR ]":: IN 

PUTB$ : IFB$<> A$THEN PRINT" SC0RE="( <X-4)*10 

) : END 
•30 X=X+1:A$=A$+MID$(STR$(FNR(D),2,1):PR 

INT" "A$::G0T020 

Notice Judy's user-defined function in line 10. This func- 
tion generates random integers from 1 to 9. This program 
keeps score, awarding 10 points for each digit in the last 
number entered correctly. 

As if three lines were not short enough, Sharon AI- 
bers (Walters, MN) sent this nifty two-liner. 



COMMODARES PROBLEM #50-4 

SIMPLE SIMON 
SOLUTION BY 

SHARON ALBERS 



•1 REM 

•2 REM 

■3 REM 

•4 REM 

•5 REM 

•6 REM ================================= 

•10 X$=X$+RIGHT$(STR$(INT(RND(0)nO)),l): 
ON-C LEN(X$ )<3)G0T04 : PRINT" [CLEAR ] [ DOWN ] [ 

PROGRAMS WANTED! 

We're always in search of the best game, utility, and 
productivity programs available for the C-64, C-128, 
and Amiga. If you've written a program which fits that 
description, send it on disk, accompanied by printed 
documentation, a program printout, and a stamped, 
self-addressed envelope to: 

Ahoy/ Program Submissions Dept. 

Ion International Inc. 

45 West 34th Street— Suite 500 

New York, NY 10001 
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DOWN ][ RIGHT ][ RIGHT ]"X$ 

■11 F0RT=1T0500: NEXT: INPUT" [ CLEAR ][ DOWN ][ 
DOWN ]" ; 1$ :0N-(X$=I$)GOT04: PRINT"INC0RREC 
T — "X$:END 

X$ holds the computer's number sequence. The first state- 
ment in line 10 picks a random digit, converts il into a 
string, and strips away the leading space. Another inter- 
esting aspect of Sharon's program is her use of the ON- 
GOTO statements. These allow the equivalent of IF- 
THEN conditional statements to be executed while hav- 
ing other commands follow on the same line. This is a 
handy procedure for the C-64 which docs not allow the 
ELSE statement. A nice feature of this program is the 
final PRINT statement which shows the actual number 
which the user missed. 

Some readers were careful to empty the keyboard buff- 
er before accepting user input. This is to prevent cheat- 
ers from typing the numbers while they are displayed 
on the screen. (Of course, the real criminals would use 
pencil and paper.) 

POKE 208,0 clears the keyboard buffer on the C-128. 
Use POKE 198,0 for the C-64. 

The ultimate in brevity is this one-liner for the C-128 
from Charles Kluepfcl (Bloomfield, NJ). 

-1 REM ================================= 

■2 REM COMMODARES PROBLEM #50-4 

■3 REM SIMPLE SIMON 

•4 REM SOLUTION BY 

•5 REM CHARLES KLUEPFEL 

•6 REM ================================= 

•i0 A=RND(-TI):DO:A$="":D0:D0:A$=A$+CHR$( 
48+1 0*RND(1)): LOOP UNTIL LEN(A$)>2: PRINT 
"[ CLEAR]" A$: SLEEP 1 :INPUT"[CLEAR]";B$:L00 
P WHILEA$=BS:PRINT"NO,IT IS" :PRINTA$:GET 
KEYA$:L00P 

Charles said that this illustrates the power of BASIC 7.0. 
Indeed it does. You may better understand the logic of 
the program if you rewrite it, indented with one state- 
ment per line. 

Hopefully you will enjoy improving your memory with 
these simple Simon solutions. Have fun working on this 
month's problems. Keep those solutions and suggestions 
coming. □ 

Congratulations to the following readers who have not 
been mentioned already this month: 



Necah Buyukdura 

(Ankara. Turkey) 
Harlan Clussman 

(Wausau, WI) 
Oren Dalton (El Paso, TX) 
Ta trice m Hallak 
Terry Jernigan (Raleigh, NC) 
Larry Louks (Frccport, TX) 
Ron McManus (Lenore, ID) 
Steve Morrison 

(Port Hucnemc, CA) 



Craig Morse (Minot, ND) 
Jerry Nichols 

Federico Ostc (Loreto, Italy) 
Myong Paek (Portland, OR) 
Donald Pellegrini 

(Arroyo Grande, CA) 
Robert Rispoli (Ridge, NY) 
Mark Roschkc 
Andrew Rosenthal 

(Flushing, NY) 



PROGRAM LISTING^ 



Attention new Ahoy! readers! You must read the following information very carefully prior to typing 
In programs listed in Ahoy.' Certain Commodore characters, commands, and strings of characters 
and commands will appear In a special format. Follow the Instructions and listings guide on this page. 




n the following pages you'll find several pro- 
grams that you can enter on your Commodore 
computer. But before doing so, read this entire 
page carefully. 
To insure clear reproductions, Ahoy'.'s program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Commo- 
dore programs. These are therefore represented by various 
codes enclosed in brackets [ ]. For example: the SHIFT 
CLR/HOME command is represented onscreen by a heart 
2 . The code we use in our listings is [CLEAR] . The 
chart below lists all such codes which you'll encounter in 
our listings, except for one other special case. 

The other special case is the COMMODORE and SHIFT 
characters. On the front of most keys are two symbols. The 
symbol on the left is obtained by pressing that key while 
holding down the COMMODORE key; the symbol on the 
right, by pressing that key while holding down the SHIFT 
key. COMMODORE and SHIFT characters are represented 
in our listings by a lower-case V or V followed by the 
symbol of the key you must hit. COMMODORE J, for ex- 
ample, is represented by [c J], and SHIFT J by [s J]. 



Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left commands 
in a row, [5 "[s EP]"] would be 5 SHIFTed English Pounds, 
and so on. Multiple blank spaces will be noted in similar 
fashion: e.g., 22 spaces as [22 " "]. 

Sometimes you'll find a program line that's too long for 
the computer to accept (C-64 lines are a maximum of 80 
characters, or 2 screen lines long; C-128 lines, a maximum 
of 160 characters, 2 or 4 screen lines in 40 or 80 columns 
respectively). To enter these lines, refer to the BASIC Com- 
mand Abbreviations Appendix in your User Manual. 

On the next page you'll find our Bug Repellent programs 
for the C-128 and C-64. The version for your machine will 
help you proofread programs after typing them. (Please note: 
the Bug Repellent line codes that follow each program line, 
in the whited-out area, should not be typed in. See instruc- 
tions preceding each program.) 

On the second page following you will find Flankspeed, 
our ML entry program, and instructions on its use. 

Call Ahoy! at 212-239-6089 with any problems {if busy 
or no answer after three rings, call 212-239-0855). 
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BUG REPELLENT FOR THE 64 & 128 By BUCK CHILDRESS 



Please note: the Bug Repellent programs listed here are for Ahoy! programs published from the May 1987 issue onward! For older 
programs, use the older version. 

Type in, save, and run Bug Repellent. You'll be asked if you want automatic saves to take place. If so, you're prompted for the device, 
DISK (D) or TAPE (T). You then pick a starling file number, through 99. Next, you enter a name, up to 14 characters long. At this 
point, Bug Repellent verifies your entries and gives you a chance to change them if you want. If no changes are needed. Bug Repellent 
activates itself. (Pressing RETURN without answering the prompts defaults to disk drive and begins your files with "OQBACKUP") 

Type NEW and begin entering an Ahoy! program. As you enter progpam lines and press RETURN, a Bug Repellent code appears 
at the top of your screen. If it doesn't match the code in the program listing, an error exists. Correct the line and the codes will match. 

If used, automatic saves take place every. 15 minutes. When the RETURN key is pressed on a program line, the screen changes color 
to let you know that a save will begin in about three seconds. You may cancel the save by pressing the RUN STOP key. The file number 
increments after each save. It resets to 00 if 99 is surpassed. After saving, or cancelling, the screen returns to its original color and 
the timer resets for 15 minutes. 



When you've finished using Bug Repellent, deactivate it by typing 
SYS 49152 [RETURN] for the Commodore 64 or SYS 4864 [RE- 
TURN] for the Commodore 128. 

C-64 BUG REPELLENT 

10 PRINTCHR$(147)"I,0AD1NG AND CHECKING THE DATA[3","]": J 

-49152 

20 FORB-OT01 1 ; READA : IFA<OORA>255THEN40 

30 P0KEJ+B,A:X»X+A:NEXTB:READA:IFA-XTHEN50 

40 PRINT: PRINT'ERROR IN DATA LINE:"PEEK<64)*256+PEEK(63) 

:END 

50 X=0: J=J+12 : IFJ<49456TH£N20 

60 POKE198,0:POKE49456,0:A$=."Y":B$-A$:C$="D":D$="DTSK":D 

»8:PRINTCHR$(147) 

70 INPUT"DO VOU WANT AUTOMATIC SAVES (i7N)"| A$:FRINT: IFA 

$="Y"THEN90 

80 PRINT'NO AUTOMATIC SAVES[3"."]":GOTG150 

90 P0KE49456,1:INPUT"DISK OR TAPE (D/T)";C$:IFC$0"D"THE 

ND=1:DS="TAPE" 

100 P0KE49457,D:D$=D$+" DRIVE"; PRINT: INPUT'FILE NUMBER ( 

0-99)" ;N 

110 N$=RIGHT$(STK-$(N),2):IFN<10THENN$=CHRS(48)+CHR$(N+48 

) 

120 F$=" BACKUP": PRINT: IN PUT'F I LENAME";F$:F$=N$+LEFT$(F$, 

14):ULEN(F$) 

130 P0KE4945B,L:FOR.l-lT0L:POKE49458+J,ASC(MID$(F$,J,l)): 

NEXTJ: PRINT 

140 PRINT"SAVING DEVICE ** "DS:PRINT"STARTING WITH ** "F 

$ 

150 



160 

170 



PRINT: INPUT" IS THIS CORRECT <Y/N)";B$:IFB$<>"Y"THEN6 



P0KE770,131:POKF.771,164:SYS49152:END 
DATA 169, 79, 32, 210, 2-55,162,38, 160, 192, 204, 3, 3, 1507 
180 DATA208, 10, 162, 131, 160, 164, 169, 70, 32, 210, 255, 44, 161 5 
190 DATA169, 78, 32, 210, 255, 142, 2, 3, 140, 3, 3, 76, 1113 
200 DATA36, 193, 32, 96, 165, 134, 122, 132, 123, 32, II 5, 0,1 180 
210 DATA170, 240, 243, 162, 255, 134, 58, 144, 3, 76, 150, 164, 1799 
220 DATA32, 107, 169, 32, 121, 165, 173, 0,2, 240, 5, 169, 1215 
DATA79, 141, 2, 3, 76, 162, 164, 169, 0,133, 2, 133, 1064 
DATA251, 133, 252, 133, 254, 24, 101, 20, 69, 254, 230, 254, 197 



230 

240 

5 

250 

260 

270 

280 

49 



DATA24, 101, 21 ,69, 254, 170, 230, 254, 164, 252, 185, 0,1724 
DATA2, 133, 253, 201, 34, 208, 6, 165, 2, 73, 255, 133, 1465 
DATA2, 201 ,32, 208, 4, 165, 2, 240,8, 138, 24, 101, 1125 
DATA253, 69, 254, 170, 44, 198,254, 230, 252, 164, 253, 208, 23 



290 DATA213, 138, 41, 240, 74, 74, 74, 74, 24, 105, 129, 141, 1327 
300 DATA44, 193, 138, 41, 15, 24, 105, 129,141,45,193,162,1230 
310 DATAO, 189, 43, 193, 240, 12, 157, 0,4, 173, 134, 2, 1147 
320 DATA157, 0,216, 232, 208, 239, 169, 38, 141, 2, 3, 173, 1578 
330 DATA48, 193, 240, 23, 165, 161, 201, 212, 176, 4, 165, 160, 1748 
340 DATA240, 13,238,32,208, 160,0,32,225,255,208,6,1617 
350 DATA32, 3 3, 193, 76, 38, 192, 232, 208, 24 2, 200, 208, 239, 1893 
360 DATA32,68,229, 169,0,168,174,49,193,32,186,255, 1555 
370 DATA173, 50, 193, 162, 51, 160, 193, 32, 189, 255, 169, 43, 1670 
380 DATA166, 45, 164, 46, 32, 216, 255, 162, 1,189, 51, 193, 1520 
390 DATA168, 200, 152, 201, 58, 144, 2, 169, 48, 157, 51, 193, 1543 
400 DATA20I, 48, 208, 3, 202, 16, 234. 32, 33, 193, 76, 116, 1362 
410 DATA164, 206, 32, 208, 169, 0,170, 168,76,219.255,160,1827 
420 DATA 1,1,160,0,0,65,72,79,89,33,0,0, 500 



C-128 BUG REPELLENT 

•10 FRINTCHH$(147)"LOADING AND CHECKING THE DATA (3"."]": J 
=4864 

• 20 F0RB-0T01 1 : READA : IFA<OORA>255THEN40 

■30 P0KEJ+B,A:X-X+A:NEXTB:READA:TFA-XTHEN50 

■40 PRINT: PRINT"ERROR IN DATA LINE:"PEEK(66)*256+PEEK(65) 
:END 

■50 X=.0:J-J+12:IFJ<5213THEN20 

■60 P0KE2O8,0:F0KE5213,0:A$- ,, Y":B$-A$:C$="D":D$-"DISK":D= 
8:PRINTCHR$(147) 

■70 INFUT'DO YOU WANT AUTOMATIC SAVES (Y/N)";A$: PRINT: IFA 
S="Y"THEN90 

■80 PRINT"N0 AUTOMATIC SAVES[3"."]":G0TO150 

•90 POKE5213,l:TNPUT"DISK OR TAPE (D/T)";C$:IFC$<>"D"THEN 
D=l:D$="TAPE" 

•100 POKE5214,D:DS-D$+" DRIVE": PRINT: INPUT"FILE NUMBER (0 
-99)";N 

•110 NS-RIGHTS(STRS(N),2):IFN<10THENNS-CHRS(48)+CHRS(N+48 
) 

• 120 FS="BACKUP" : PRINT: INPUT"FILENAME" ; F$ : F$=N$+LEFTS( F$ , 
14):L=LEN(F$) 

•130 POKE5215,L:FORJ=1TOL:POKE5215+J,ASC{HIDS(F$,J,1)):NE 
XTJ: PRINT 

•140 PRINT"SAVTNG DEVICE ** "D$:PRINT"STARTINC WITH ** "F 
S 

•150 PRINT: INPUT"IS THIS CORRECT (Y/N)";B$:IFB$<>"Y"THEN6 


160 P0KE77O,198:POKE771,77:SYS4864:END 
170 DATA32, 58, 20, 169, 41, 162, 19, 236, 3, 3, 208, 4, 955 
180 DATA169, 198, 162, 77, 141, 2, 3, 142, 3, 3, 224, 19, 1143 
190 DATA208, 7, 32, 125, 255, 79, 78, 0,96, 32, 125, 255, 1292 
200 DATA79, 70, 70, 0,96, 162, 0,134, 251, 189, 0,2, 1053 
210 DATA240, 19, 201, 48, 144, 9, 201, 58, 176, 5, 133, 251, 1485 
220 DATA232, 208, 238, 134, 252, 165, 251, 208, 3, 76, 198, 77, 2042 
230 DATA169. 0,166, 235, 164, 236, 133, 253, 133, 254, 142, 47, 193 
2 

240 DATA20, 140 , 48 , 20 , 24 , 101 , 22 ,69 , 254 , 230, 254 , 24 ,1206 

250 DATA101, 23, 69, 254, 170, 230, 254, 164, 252, 185, 0,2, 1704 

260 DATA133, 251, 201, 34, 208, 6, 165, 253, 73,255, 133, 253, 1965 

270 DATA201, 32, 208, 4, 165, 253, 240, 8, 138, 24, 101, 251, 1625 

280 DATA69, 254, 170, 44, 198, 254, 2 30, 252, 164, 25 1,208, 21 3, 23 
07 

290 DATA138, 41, 240, 74, 74, 74, 74, 24, 105,65, 141, 88, 1138 

300 DATA20, 138, 41, 15, 24, 105, 65, 14 1,89, 20, 32, 79, 769 

310 DATA20, 189, 85, 20, 240, 6, 32, 21 0,255, 232, 208, 24 5, 1742 

320 DATA174, 47, 20, 172, 48, 20, 24, 32, 240, 255, 173, 93, 1298 

330 DATA20, 240, 27, 165, 161, 201, 212, 176, 4, 165, 160, 240, 1771 

340 DATA1 7, 32, 65, 20, 238, 32, 208, 238, 1,214, 32, 225, 1322 

350 DATA2 55, 208, 6, 32, 49, 20, 76, 198, 77, 232, 208, 242, 1603 

360 DATA200, 208, 239, 32, 66, 193, 17 3, 95, 20, 162, 96, 160, 1 644 

370 DATA20, 32, 189, 255, 169, 0,170, 32, 104, 255, 169, 0,1395 

380 DATA174, 94, 20, 168, 32, 186,255, 169, 45, 174, 16, 18, 1351 

390 DATA172.17, 18,32,216,255,162,1, 189,96,20,168,1346 

400 DATA200, 152, 201, 58, 144, 2, 169, 48, 157, 96, 20, 201, 1448 

410 DAT A48, 208, 3, 202, 16, 234, 32, 49, 20, 141, 0,2, 955 

420 DATA76, 183, 77, 58, 59, 32, 65, 20, 206, 32, 208, 206, 1222 

430 DATA1, 214, 169, 0,170, 168, 76, 2 19, 255, 32, 79, 20, 1403 

440 DATA169, 26, 141, 0,214, 173, 0,214, 16,251,96,162,1462 

450 DATAO, 142,0,255,96, 19,18,32,32,32,32,146,804 

460 DATAO, 1,0, 0,65, 72, 79, 89, 33, 0.0, 0,339 



62 AHOY! 



FLANKSPEED FOR THE C-64 By GORDON F. WHEAT 

Flankspeed will allow you to enter machine language Ahoy! programs without any mistakes. Once you have typed the program 
in, save it tor future use. While entering an ML program with Flankspeed there is no need to enter spaces or hit the carriage 
return. This is all clone automatically, [f you make an "error in a line a bell will ring and you will be asked to enter it again. 
To LOAD in a program Saved with Flankspeed use LOAD '"name", 1,1 for tape, or LOAD "name" 8, 1 for disk. The function keys 
may be used after the starting and ending addresses have been entered. 
fl-SAVEs what you have entered so far. 
O— LOADs in a program worked on previously. 

f5— To continue on a line you stopped on after LOADing in the previous saved work, 

f7-Scans through the program to locate a particular line, or to find out where you stopped the last time you entered the program. 
It temporarily freezes the output as well. 



Wl P0KS53280, 12: P0KE532Bl.il OP 
105 PRINT" [CLEAR] fc 3][RVSON)[15" "] FLANKSPEED [15" "]"; FP 
110 PRINT ! '[RVSON][5" "JMISTAKEPROOF ML ENTRY PR0GRAM[6" " 

I" JP 

115 PR1NT"[RVS0N][9" "JCR BATED BIT G. F. WHEAT [9" "]" FA 
120 PRINT"[RVS0N][3" "JCOPR. 1987, ION INTERNATIONAL INC. 

[3" "]" AJ 

125 FORA=54272T054296:POKEA,0:NEXT ND 
130 P0KE54272,4:P0KE54273,4S:P0KE54277,0:PQKE54278,249:P0 

KE54296.15 NP 

135 F0RA=680TO699:READB:P0KEA,B:NEXT FL 

140 DATA169, 251, 166,253,164,254,32,216,255,96 FF 

145 DATA169, 0,166, 251, 164, 252, 32,213,255, 96 EK 

150 BS*"STARTING ADDRESS IN HEX":GOSUB430:AD=B:SR»B KP 

155 G0SUB480:IFB=OTHEN150 OE 

160 P0KE251,T(4)+T(3)*16;P0:<E252.T{2)+T(1)*16 AM 

165 BS="ENDING ADDRESS IN HEX":GOSUB430:EN=B PE 

170 G0S'JB470:IFB=0THEN150 PG 

175 P0KE254,T(2)+T(l)*16:B=T(4)+i+T(3)*16 GM 

180 IFB>255THENB=B-255:?0KE254,PEEK(254)+1 HG 

185 P0KE2 53, B: PRINT EC 

190 REM GET HEX LINE ED 

195 G0SUB495:PR1NT"; [c P][LEFT]"t iF0RA=0T08 KD 

200 F0RR-0T01:G0T0250 Ifl 

205 NEXTB IJ 

210 A3U)=T(1)+T(0)H6:IFAD+A-1=ENTHEN340 FA 

215 PRINT" [c PHLEFF]"; EG 

220 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " II 

225 F0RA-0T07 :T=T+A%( A ) : 1FT>255THENT-T-25S GL 

230 NEXT GI 

235 IFA%(8)<>rrHENGOSUB375:GOT0195 FL 

240 FQRA=0T07;P0KEADtA,A£(A);NEXT:AD=AD*8:Garol95 IM 

245 REM GET HEX INPUT PA 

250 GETA$:IFAJ=""THEN250 GA 

255 IFA$=CHR$(2O)THEN305 GO 

260 IFA$=CHR<P(133)THEN535 LM 

265 EFA$=CHR$(134)THF.N560 IG 

270 IFA$=CHRS(135)THENPRINT" ":G0TO620 HO 

275 [FAS=CHR$(136)THENPRINT" ":GOT0635 'HE 

280 IFA$>"@"ANDASf"G"THENT(3)=ASC(A$)-55:GOT0295 MI 

285 IFA$>'7"ANDAS<"":"THENT(3)=ASC(A$)-48;G0T0295 DJ 

290 G0SUB415:GOTO25O J A 

295 PRim$"(c P][LEFT]": PK 

300 GOT0205 FA 

305 IFA>0THEN320 BI 

310 A=-1:IFB=1THEN330 B5 

315 G0T0220 FA 

320 IFB=OTHENPRINTCHRS(20);CHRS(2O);:A=A-l BF 

325 A=A-1 FK 

330 PRINTCHRS(20);:GOT0220 pt! 

335 REM LAST LINE CP 

340 PRINT" ":T=AD-(INT(AD/256)*256) KH 

345 FORB-OTOA-l:T-T+AX(B):IFT>255THENT>T-255 OD 

350 NEXT OB 

355 IFA%(A)<>TTHENG0SUB375:GOT0t95 LH 

360 FORB«0T0A-l:P0KEAD+B,A%(B);NEXT BO 

365 PRINT: PRINT'YQU ARE FINISHED !":GOT0535 MB 

370 REM BELL AND ERROR MESSAGES LM 
375 PRINT: PRINTLINE ENTERED INCORRECTLY": PRINT :GOT04 15 JK 

380 PRINT; PRINTTNPUT A 4 DIGIT HEX VALUE! ":GOT041 5 PG 
385 PRINT: PRINT"ENDING IS LESS THAN STARTISG!":B-0;GOT041 



5 IK 

390 PRINT: PRINT"ADDRESS NOT WITHIN SPECIFIED RANCE!":B=0: 

GOT0415 HK 

395 PRINT: PRINT"NQT ZERO PAGE OR ROM!":B=0:GOT0415 DM 

400 PRINT"?ERROR IN SAVE":GOT0415 JK 

405 PRINT"?ERROR IN L0AD":C0T0415 10 

410 PRINT: PRINT: PRINT"END OF ML AREA":PRINT JO 
415 POKE54276,17:POKE54276,16:RETURN- • BF 

420 OFEN15,8,15:INPUT(tl5,A,A$:CL0SE15:PRINTAS:RETlIRN Df! 

425 HEM GET FOUR DIGIT HEX [M 

430 PRINT : PRINTBS ; : INPUTT$ OL 

435 IFLEN(T$)O4THENG0SUB380:G0T0430 JD 
440 FORA=lTO4:A$=MIDS(TS,A,l):G0SUB450:in'(A)=16Ti!ENG0SUB 

380;GOT0430 AK 
445 NEXT:B.<T(1)*4096)+<T(2)*256)+(T(3)*16)+T(4): RETURN KB 

450 IFA$>"@"ANDA$<"G"THENT(A)-ASC(A$)-55: RETURN GM 

455 IFA$>'7"ANDA$<":"TfIENT'(A)-ASC(A$)~48; RETURN NJ 

460 T(A)=16: RETURN IC 

465 REM ADDRESS CHECK OL 

470 IFAD>ENTHEN385 HO 

475 IFB<SRORB>ENTHEN390 L.E 

480 IFB<256OR(B>4096OANDB<49152)ORB>53247THEN395 OB 

485 RETURN HE 

490 REM ADDRESS TO HEX PM 

495 ACoAD;A»4096:GOSUB520 AP 

A=256:G0SUB520 NF 

A=16:GOSUB520 LG 

A«1:GOSUB520 HE 
515 RETURN • JD 

520 T=INT(AC/A):IFT>9THENA$=CHR$(T+55):GOTQ530 OC 

525 A$=CHRS(T+48) JI 

530 PRINTAS;:AC=AC-A*T: RETURN AA 

535 AS-"**SAVE**";GQSUB585 ' [C 

540 QFENT.T.l.AS^YSeBO^LOSEl AB 

545 IFST-OTHENEND FB 

550 G0SUB400:IFT=8THENG0SUB420 PM 

555 GOT0535 FI 
560 A$="**L0AD**":G0SUB585 : PE 

565 0PENl,T,0,AS:SYS690:CLOSEl ?0 

570 IFST=64THEN195 01 

575 GOSyB40.5:IFT=8THENG0SUB420 CO 

580 GOT0560 GN 

585 PRINT" ":PRINTTAB(14)A$ KA 

590 PRINT: A$="":INPUT"F1LENAME";A$ 10 

595 IFA$=>""THEN590 JIK 

600 PRINT :PRINT"TAPE OR DISK?": PRINT ML 

605 GETB$:T=1:IFB$="D"THENT=8:A$="@0:"+AS: RETURN NP 

610 IFB$O"T"THEN605 KO 

615 RETURN PH 

620 BS="CONTINUE FROM ADDRESS" :G05UB430:AD=R DD 

625 COSUB475-.IFB-0THEN620 NK 

630 PRINT:G0TO195 HN 

635 BS="BEGIN SCAN AT ADDRESS" :COSUB430;AD-B FK 

640 G0SUB475:IFB»OTHEN635 LN 

645 PRINT:GOT0670 . HI 
650 FORB=0TQ7 : AC=PEEK ( AD+B) : GOSUB505 : IFAD+B-ENTHEN AD-SR : G 

OSUB41O:GOT0195 LM 

655 PRINT" ";:NEXTB LE 

660 PRINT :AD»AD+8 CD 

665 GETBS;IFBS=CHR$(136)THEN195 JD 

670 G0SUB495:PRINT": "::GOTO650 KE 



500 
505 
510 
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IMDDDTAMTI Letters on white background are Bug Repellent line codes. Do not enter theml Pages 61 and 62 explain these codes 
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VARI-SCAN 

FROM PAGE 30 



C-64 VERSION 

10 REM *** VARI-SCAN 64 *** BUCK CHILDRE 
SS *** EB 

20 REM *** P.O. BOX 13575 SALEM, OR 9730 
9 *** OA 

30 PRINTCHR$(147) "LOADING AND CHECKING D 
ATA LINE:":J=52000 BM 

40 F0RB=0T011:READA MB 

50 IFB=0THENL=PEEK(64)*256+PEEK(63) :PRIN 
TCHR$(19)TAB(31)L:PRINT PF 

60 IFA<00RA>255THEN80 FK 

70 POKEJ+B , A : X=X+A : D=D+1 : NEXTB : READA : IFA 
=XTHEN90 PL 

80 PRINT"ERROR IN DATA LINE:"L:END MG 
90 X=0:J=J+12:IFD<564THEN40 00 

100 PRINT"THE DATA IS 0K[3"."]":PRINT FB 
110 PRINT'S YS 52[3"0"] TO ACTIVATE [3"."] 
":END AH 

120 DATA 104, 104, 169,79,32,210,255, 169, 78 
,162,57,160,1579 LA 

130 DATA203, 142, 0,3, 140, 1,3, 32, 210, 255, 7 
6,179,1244 BP 

140 DATA204, 173, 0,2 ,201, 95, 208, 17, 169, 79 
,32,210,1390 JC 

150 DATA255, 169, 70, 32, 210, 255, 162, 139, 16 
0,227,76,45,1800 GN 

160 DATA203,201,65,144,4,201,91,144 ( 3,76 
,139,227,1498 HP 

170 DATA32.96, 166, 162,0, 160,0, 140,85, 205 
,140,83,1269 OJ 

180 DATA205, 189, 1,2, 240, 47, 48, 198,201,32 
,208,3,1374 LP 

190 DATA232, 208, 242,72,173,85, 205,208, 10 
,192,0,240,1867 AM 

200 DATA6, 104, 201,48, 176, 238,72, 104, 153, 
1,2,201,1306 FP 

210 DATA48, 176, 10, 141, 85, 205, 201, 40, 208, 
3,141,83,1341 NE 

220 DATA205 , 232 , 200 , 208 , 204 , 153, 1 , 2 , 165 , 
43,166,44,1623 DA 

230 DATA133, 25 1,134, 252, 134, 254, 160, 0,1 7 
7,43,133,253,1924 BO 

240 DATA152, 145, 45, 200, 208, 251, 141, 90, 20 
5,141,92,205,1875 EP 

250 DATA32 , 2 , 205 , 1 60 , 2 , 1 77 , 25 1 , 200 , 209 , 2 
51,208,7,1704 HN 

260 DATA201,0,208,3,76, 167,204, 170, 177, 2 
51,141,88,1686 HA 

270 DATA205, 142,89, 205, 160,3,32, 2, 205, 14 
1,91,205,1480 IA 

280 DATA173, 92, 205, 240, 8, 162, 0,142, 92, 20 



5,32,187,1538 AL 

-290 DATA204, 200, 177,251,208,3,76,135,204 

,201,131,240,2030 AL 

•300 DATA4, 201, 143, 208, 3, 76, 138, 204, 201, 3 

4,208,7,1427 IK 

•310 DATA 174, 91, 205, 240, 21 2, 208, 207, 174, 9 

1,205,208,208,2223 GE 

•320 DATA201, 65, 144, 22, 201, 91, 176, 200, 141 

,92,205,174,1712 PJ 

• 330 DATA84 , 205 , 208, 55 , 174 , 87 , 205 , 224 , 2 , 1 
44,51,76,1515 EP 

•340 DATA237.203, 174, 92, 205, 240, 190,201 ,5 
8,176,173,201,2150 BG 

•350 DATA48, 176, 228, 201, 32, 240, 178,201,36 
,240,21,201,1802 EP 

• 360 DATA37 , 240 , 17 , 201 , 40 , 240 , 1 3 , 201 , 41 , 2 
40,9,201,1480 BC 

•370 DATA44,208,29, 174,83, 205,240,24, 141, 
84,205,174,1611 KC 

• 380 DATA87 , 205 , 157 ,93, 205 , 238, 87 , 205, 201 
,41,208,11,1738 BF 

•390 DATA173,83,205,208, 3, 206,87,205,76,2 

24,203,201,1874 CG 

•400 DATA40, 208 ,17, 232, 142, 86, 205, 173, 83, 

205,208,8,1607 AP 

•410 DATA169, 0,141, 92, 205, 141, 87, 205, 76,2 

37,203,32,1588 BA 

•420 DATA187, 204,32, 5, 205, 166, 253, 165, 254 

,240,20,134,1865 DN 

•430 DATA251, 133,252, 160,0, 177,253,72, 200 

,177,253,133,2061 HI 

•440 DATA254, 104,133,253,76,191,203,173,9 

0,205,208,7,1897 KL 

•450 DATA169, 47, 160, 205, 32, 30, 171,169,0,1 

41,0,2,1126 GP 

•460 DATA76, 116, 164, 162, 0,189, 0,2, 240, 18, 

201,92,1260 GO 

•470 DATA208,6,236,86,205,76,215,204,221, 

93,205,208,1963 J J 

•480 DATA49, 2 3 2, 208, 233, 236, 8 7, 205, 208, 41 

,104,104,173,1880 FI 

• 490 DATA90 , 205 , 208 , 7 , 169 , 21 , 1 60 , 205 , 32 , 3 
0,171,169,1467 GK 

• 500 DATA76 , 160 , 205 , 32 , 30 , 1 7 1 , 1 73 , 88 , 205 , 

174,89,205,1608 LG 

•510 DATA32,205, 189, 169, 13,32,210,255, 141 

,90,205,76,1617 NJ 

•520 DATA1 38, 204, 169, 0,1 70, 157,93,205,232 

,208,250,141,1967 IE 

•530 DATA84, 205 ,141, 86, 205, 14 1,87, 205, 96, 

13,18,86,1367 DK 

•540 DATA65, 82, 73, 65, 66, 76, 69, 32, 73, 83, 32 

,73,789 IB 

•550 DATA78,32,85,83,69,46,46,46,13,13,0, 

13,524 JA 
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•560 DATA18, 86, 65, 82, 73, 65, 66, 76, 69, 32, 73- 
,83,788 MI 

•570 DATA32, 78, 79, 84, 32, 73, 78, 32, 85, 83, 69 
,46,771 GN 

•580 DATA46, 46, 13 ,0,76, 73, 78, 69 ,58, 32, 0,2 
20,711 CO 

C-128 VERSION 

•10 REM *** VARI-SCAN 128 *** BUCK CHILDR 
ESS *** ED 

•20 REM *** P.O. BOX 13575 SALEM, OR 9730 
9 *** OA 

•30 PRINTCHR$(147)"L0ADING AND CHECKING D 

ATA LINE:":J=4864 AD 

•40 FORB=OT011:READA MB 

•50 IFB=0THENL=PEEK<66)*256+PEEK(65) :PRIN 

TCHR$(19)TAB(31)L: PRINT LB 

•60 IFA<OORA>255THEN80 FK 

•70 P0KEJ+B,A:X=X+A:D=D+1:NEXTB:READA:IFA 

-XTHEN90 PL 

•80 PRINT"ERROR IN DATA LINE:"L:END MG 
•90 X=0:J=J+12:IFD<636THEN40 00 

•100 PRINT"THE DATA IS 0K[3"."]":PRINT FB 
•110 PRINT"SYS 4864 TO ACTIVATE[3". ,, ] ,, :EN 

D AJ 

•120 DATA104, 104, 32, 129, 146, 79, 78, 0,169, 2 

9,162,19,1051 ND 

•130 DATA141,2,3,142,3,3,169,69,141,0,3,1 

42,818 PI 

•140 DATA1, 3, 76, 236, 20, 169, 0,162, 19, 133, 2 

51,141,1211 AN 

• 150 DATAO, 255, 134, 252 , 169 , 251 , 141 , 185 , 2, 

162,1,160,1712 EJ 

•160 DATAO, 177,251, 32, 119, 255, 230, 251, 208 

,238,230,252,2243 IN 

•170 DATA165, 252, 201, 22, 144 ,230, 76, 198, 77 

,173,0,2,1540 IH 

•180 DATA201,95,208,22,32,129,146,79,70,7 

169 1221 KK 

•190 , DATA198,162,77,141,2,3,142,3,3,169,6 

3,76,1039 GP 

•200 DATA20, 19, 201 ,65 ,144, 4, 201 ,91, 144, 3, 

76,63,1031 PL 

•210 DATA77, 32, 250, 81, 162, 0,160, 0,140, 120 

,21,140,1183 KD 

■220 DATA118, 21, 189, 1,2, 240, 47, 48, 153, 201 

,32,208,1260 JG 

•230 DATA3, 232, 208, 242, 72 ,173, 120, 21, 208, 

10,192,0,1481 DE 

•240 DATA24O,6,104,2Ol,48 f 176,238,72,104, 

153,1,2,1345 PP 

•250 DATA201, 48, 176, 10, 14 1,120, 21, 201, 40, 

208,3,141,1310 HN 

•260 DATA118, 21, 232, 200,208, 204, 153, 1,2,1 

65,45,166,1515 AF 

•270 DATA46, 133, 251, 134,252,134,254,160,0 

,177,45,133,1719 IB 



•280 DATA253, 173, 16, 18, 174, 17, 18, 133, 65,1 
34,66,152,1219 GO 

• 290 DATA145 , 65 , 200, 208 , 251 , 141 , 125 , 21 , 14 
1,127,21,32,1477 HB 

•300 DATA92, 21, 160, 2, 177, 251, 200, 209, 251, 

208,7,201,1779 AO 

•310 DATAO, 208, 3, 76, 194, 20, 170, 177, 251, 14 

1,123,21,1384 CK 

•320 DATA142, 124,21,160,3,32,92,21,141,12 

6,21,173,1056 HJ 

•330 DATA127, 21, 240, 8, 162, 0,142, 127, 21, 32 

,247,20,1147 JP 

•340 DATA200, 177, 251 , 208, 3 , 76 , 162 , 20, 201 , 

131,240,4,1673 JC 

•350 DATA201,143,208,3,76,165,20,201,34,2 

08,7,174,1440 DJ 

•360 DATA126, 21, 240, 212, 208, 207, 174, 126,2 

1,208,208,201,1952 GL 

•370 DATA65, 144, 22, 201, 91 ,176, 200, 14 1,1 27 

,21,174,119,1481 HH 

•380 DATA21, 208, 55, 174, 122, 2 1,224, 2, 144, 5 

1,76,8,1106 JO 

• 390 DATA20, 174, 127 , 21 , 240, 190,201 , 58, 176 
,173,201,48,1629 HB 

•400 DATA1 76, 228, 201 ,32, 240, 178, 201, 36, 24 

0,21,201,37,1791 EI 

•410 DATA24O,17,2Ol,4O,240,13,201,41,24O, 

9,201,44,1487 HN 

•420 DATA208, 29, 174, 118, 21, 240, 24, 141, 119 

,21,174,122,1391 FJ 

•430 DATA21, 157, 128,21,238, 122,21,201,41, 

208,11,173,1342 HP 

•440 DATA118, 21, 208, 3, 206, 122, 21, 76, 251,1 

9,201,40,1286 CJ 

•450 DATA208, 17, 232, 142, 121, 21, 173, 118, 21 

,208,8,169,1438 JM 

•460 DATAO, 141, 127, 21, 141, 122, 21, 76, 8, 20, 
32,247,956 JF 

•470 DATA20,32,95,21, 166,253, 165,254,240, 
20,134,251,1651 AA 

•480 DATA133, 252, 160, 0,1 77, 253, 72, 200, 177 
,253,133,254,2064 EG 

•490 DATA104, 133, 253, 76, 218, 19, 173, 125, 21 

,208,37,169,1536 JF 

•500 DATAO, 141, 0,255, 32, 129, 146, 13, 18, 86, 

65,82,967 01 

•510 DATA73, 65, 66, 76, 69, 32, 73, 83, 32, 78, 79 

,84,810 fj 

•520 DATA32, 73, 78, 32, 85, 83, 69, 46, 46, 46, 13 

,0,603 AN 

•530 DATA169, 0,141, 0,2, 141, 0,255, 76, 55, 77 

,162,1078 FJ 

•540 DATAO, 189,0,2,240, 18,201,92,208,6,23 

6,121,1313 DK 

•550 DATA21, 76, 19, 21, 221, 128, 21, 208, 79, 23 

2,208,233,1467 HL 

•560 DATA236, 122, 21, 208, 7 1,104, 104,169,0, 

141,0,255,1431 FM 
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•570 DATA173, 125, 21, 208, 29, 32,129, 146,13, 

18,86,65,1045 HO 

•580 DATA82, 73, 65, 66, 76, 69, 32, 73, 83, 32, 73 

,78,802 JJ 

•590 DATA32, 85 ,83, 69, 46, 46, 46, 13, 13, 0,32, 

129,594 KF 

•600 DATA146,76,73,78,69,58,32,0,173,123, 

21,174,1023 M0 

•610 DATA124,21,32,50,142,169,13,32,21O,2 

55,141,125,1314 KM 

•620 DATA21, 76, 165, 20, 169, 0,170, 157, 128, 2 

1,232,208,1367 IN 

• 630 DATA250 ,141,119,21,141,121,21,141,12 

2,21,169,63,1330 KJ 

•640 DATA141, 0,255, 169, 0,96, 0,0, 65, 72, 83, 

0,881 HC 



FROM PAGE 32 



C-64 PADDLE ROUTINE 



1 REM======================= 

3 REM C-64 PADDLE ROUTINE 

4 REM RUPERT REPORT #55 

5 REM 

6 REM MONITOR LISTING 

8 REM======================== 



9 REM DISABLE INTERRUPTS (LINE 90) 

10 REM SAVE CIA DDR (LINE 100) 

11 REM SET BITS 7 & 6 OF CIA 

12 REM #1 AS OUTPUTS (110-120) 

13 REM ENABLE POTS A AND B (130) 

14 REM PUT DELAY COUNT IN X (140) 

15 REM DELAY LOOP (150-170) 

16 REM READ POT X (180) 

17 REM STORE POT X IN 251 (190) 

18 REM READ POT Y (200) 

19 REM STORE POT Y IN 252 (210) 

20 REM RESTORE CIA DDR (220) 

21 REM ENABLE INTERRUPTS (230) 

22 REM BACK TO BASIC (240) 

90 "00000 78 SEI 

100 "0C001 AC 02 DC LDY $DC02 

110 "OC004 A9 CO LDA #$C0 

120 "0C006 8D 02 DC STA $DC02 

130 "0C009 8D 00 DC STA $DC00 

140 "0C00C AA TAX 

150 "OCOOD EA NOP 

160 "OCOOE CA DEX 

170 "OCOOF 10 FC BPL $COOD 

180 "00011 AD 19 D4 LDA $D419 

190 "00014 85 FB STA $FB 

200 "0C016 AD 1A D4 LDA $D41A 

210 "0CO19 85 FC STA $FC 



220 "0C01B 

230 "0C01E 
240 "0C01F 



8C 02 DC STY $DC02 
58 CLI 
60 RTS 



THERMAL CONNECTION 



REM 

REM THERMAL CONNECTION 

REM 

REM RUPERT REPORT #55 

REM 

REM ========================= 



8 REM CALIBRATE AND READ THERMISTOR 

9 REM CONNECTED TO PADDLE INPUT 



AO 
JD 
FF 
JF 
CE 
JH 
NE 
FH 
PL 
JL 



REM 



JO 



REM 



JP 



REM 



AE 



20 DEF FNR(X)=INT(10*X+.5)/lO 

ROUND OFF TO 1 DECIMAL 
30 DEF FNK2F(T)=1.8*(T-273)+32 

CONVERT DEG K TO DEG F 
40 DEF FNF2K(T)=273+(T-32)/1.8 

CONVERT DEG F TO DEG K 
50 DEF FNT(R)=1/(1/T0+(1/B)*L0G(R/R0)) : 

REM TEMP IN DEG K BJ 

60 GOSUB 3000 :REM GET CALIBRATION 

CONSTANTS NG 

70 PRINT "PUT THERMISTOR AT NEW TEMPER AT 
URE" GF 

80 PRINT "PRESS ANY KEY WHEN READY" KP 
90 GET K$: IF K$="" THEN 90 JA 

95 REM MAIN LOOP FH 

100 R-POT(l) LN 

110 T=FNT(R) :REM TEMP IN DEG K MM 
120 PRINT "TEMPERATURE :";FNR(FNK2F(T)); 

"DEG F "; HA 

130 PRINT FNR(T-273); "DEG C" 00 

140 GOTO 100 KB 

1000 REM WAIT FOR SETTLING KF 

1010 PRINT "PRESS A KEY WHEN VALUE HAS S 
ETTLED :" EC 

1020 Pl-POT(l) JB 

1030 PRINT PI; FO 

1040 GET K$: IF K$="" THEN 1020 MB 
1050 RETURN KM 

2000 REM AVERAGE VALUES JE 

2010 SUM-0 LM 

2020 FOR N-l TO 10 JL 

2030 P1=P0T(1) HD 

2040 SUMoSUM+Pl: NEXT HL 

2050 RN-SUM/10 FH 

2060 RETURN KC 

3000 REM GET CALIB. CONSTANTS EM 

3010 PRINT " [CLEAR ]D0 YOU KNOW CALIBRATI 
ON CONSTANTS (Y/N)"; INPUT K$ CJ 

3020 IF K$="N" THEN 3070 :REM CALIBRATE MH 
3030 INPUT "WHAT IS B"; B JN 



66 AHOY! 



3040 INPUT "WHAT IS TO"; TO CM 

3050 INPUT "WHAT IS RO"; RO AO 

3060 GOTO 3270 :REM RETURN NP 

3070 PRINT "PUT THERMISTOR AT ROOM TEMP" IK 
3080 INPUT'WHAT IS ROOM TEMP (DEG F)";T1 NC 
3090 GOSUB 1010 :REM DISPLAY RESISTANCE EM 
3100 GOSUB 2010 :REM RETURN VALUE LO 
3110 R1=RN AN 

3120 PRINT: PRINT "PUT THERMISTOR IN ICE 
WATER" CI 

3130 PRINT "PRESS ANY KEY WHEN READY" JF 
3140 GET K$: IF K$= n " THEN 3140 OG 
3150 GOSUB 1010 KJ 

3160 GOSUB 2010 LC 

3170 RO=RN EK 

3180 T1=FNF2K(T1): T0=273 FF 

3190 PRINT: PRINT" [ 38"="]" EP 

3200 B=LOG(R1/RO)/(1/T1-1/TO) DH 

3210 PRINT "RECORD THESE CALIBRATION CON 
STANTS :" KH 

3220 PRINT "B =";FNR(B) OG 

3230 PRINT "TO =";T0 DP 

3240 PRINT "RO =";R0 DN 

3250 PRINT" [38"="]" ML 

3260 PRINT "THERMISTOR IS NOW CALIBRATED 
": PRINT: PRINT AA 

3270 RETURN GA 

4990 REM ############################### HO 

4991 REM FOLLOWING LINES FOR C-64 ONLY NE 

4992 REM ############################### FM 

JA 
LK 
GB 
CE 
ME 
FM 
MD 
DG 
JC 
IE 
NO 
CM 
EE 
BJ 
EN 



5000 REM 

5001 REM 



4993 REM ADD LINE 11 

4994 REM REPLACE LINES 100, 1020, 2030 

4995 REM ADD LINES 5010-49184 

4996 REM 
11 SA=49152: GOSUB 5010 

100 SYS SA: R=PEEK(251) 

5002 REM 1020 SYS SA: P1=PEEKC251) 

5003 REM 2030 SYS SA: P1=PEEK(251) 

5004 REM======== SS = SS ========= SS! ====== = == 

5010 M=49152: CSUM=4609 

5020 READ B$: IF B$="XX" THEN 5100 

5030 B=VAL(B$) 

5040 POKE M,B: M=M+1 : CK=CK+B 

5050 GOTO 5020 

5100 IF CK=CSUM THEN RETURN 

5110 PRINT "DATA ERROR. CHECK TYPING.": 

END 01 

49152 DATA 120,172,2,220,169,192,141,2 KB 
49160 DATA 220,141,0,220,170,234,202,16 LB 
49168 DATA 252,173,25,212,133,251,173,26 MN 
49176 DATA 212,133,252,140,2,220,88,96 NP 
49184 DATA XX BE 

LUNAR BUGGY 

PAGE 15 



10 P0KE53248+21 , . : COLORO, 1 : C0LOR4 , 1 : PRIN 



TCHR$(11)CHR$(142)CHR$(147):CHAR,10,5,"[ 
c 5][s U][4"[s C]"][s I][D0WN][6"[LEFT] H 
][s B][4"Z"][s B][D0WN][6"[LEFT]"][s J][ 
4"[s C]"][s K][s Q][DOWN][s W][D0WN][s W 
] [DOWN]. [DOWN]," NP 

-20 CHAR,20,12,"[c 8][4"[c §3"] [DOWN] [ 5" [ 
LEFT]"][s N][s F][s F] [s F][s M][DOWN][ 
T'^LEFTI'^ts N][4"[c +]"] [c +][s M][DOW 
N][8"[LEFT]"][8"[c U]"]":CHAR,23,10,"(WO 
RKING)" BK 

•30 FORX=3584TO4096:READA$:POKEX,DEC(A$) : 
NEXT: F0RX=4864T05054 : READ A $ : POKEX , DEC( A$ 
):NEXT JE 

• 40 FORX= .T063 :P0KE55*64+X, . : NEXT: P0KE55* 
64+32,192: P0KE55*64+35 ,192: PRINTCHR$ (147 

) HE 

• 50 P0KE4593 , 203 : P0KE4592, 100: P0KE4595, : 
P0KE4594 , 30 : POKE4602 , 250 : P0KE4597 , 0: POKE 
4598,130:P0KE4599,56:SYS4864 EO 

•60 B$="":F0RX=.T039:B$=B$+CHR$(32):NEXT: 
F0RX=1T08 : MOVSPRX , . # . : NEXT EA 

•70 TEMP010:D$(.)="0r , :D$(2)="02":D$(3)=" 

03":D$(4)="04'*:D$(5)="04":D$(6)="01" ' MJ 

• 80 F0RX=4T07 : P0KE204O+X , 62: NEXT: F0RX=5T0 
6 : SPRITEX , . , 13 , . , 1 , 1 , . ; NEXT: F0RX=7T08: SP 
RITEX, . ,12, . ,1, . , . :NEXT:P0KE2040+3,63:P0 
KE2041,55:SPRITE2,.,2,.,.,.,. PI 

• 90 M0VSPR5 ,30,152: M0VSPR6 , 250 ,152: MOVSPR 
7,120,157:MOVSPR8,350,157:FORX=5T06:MOVS 
PRX,270#2:M0VSPRX+2,270#1:NEXT:P0KE2040, 
56: SPRITE1 , . , 14, . , :M0VSPR1 , 100, 198 EI 

•100 POKE2043,60:P0KE2O42,59:SPRITE3, . ,4, 
.,.,.,1:M0VSPR3,370,150:SPRITE4,.,13,.,1 
,1, . :M0VSPR4,370,198:M0VSPR4,270#3 BC 

•110 G0SUB380:PRINTCHR$(27)"M";"[4 ,, [DOWN] 
"][RVSON][c 4]"B$B$"[c 5]"B$B$B$"[c 8]"B 
$B$B$B$ CH 

•120 DIMD(8),S(1),M$(2) MN 

•130 J=.:D=.:G=15:F=127:Z=.:V=1:Q=.:S=,:B 
=.:H=5:P=10:I=5:K=25:U=1:T=2:M=3:L=198:S 
C=.:N=4: 0=240: VIC=53248:S(.)=315:S(1)=22 
5 AA 

•140 A$="[H0ME][5"[D0WN]"] [21 "[RIGHT]"]": 
B$="[8"[RIGHT]"]":M$(.)=" YOU RECOVERED 
THE BUGGY! ":M$(1)=" YOU CRASHED IN A CR 
ATER! ":M$(2)=" YOU COLLIDED WITH THE SH 
IP!" AN 

•150 FORX=1T010:READB$(X):NEXT AA 

•160 F0RX=.T08:D(X)=-1:NEXT:DC.)=90:DC1)= 
0:D(3)=90:F$="[5"#"]":H$="[4"#"]" : SPRCOL 
0R7,3 BE 

•170 DEFFNJ(X)=(C<H)*T+CC=>H)*-T+(C=P)*T KA 

• 180 DEFFNF(U)=-(J>FANDD(X)=>.ANDRSPRITE( 
T,.)=.):DEFFNC(X)=(J=H)*-U+C(JANDG)=H+U) 
*-T+((JAND(H+M))>.)*-M IF; 

•190 P0KEVIC*21,241:X=.:DO:PLAYD$(X):PLAY 
"T7IG#GGEG#GGE" : X=X+l+( X=6 ) *7 : LOOPWHILEJ 
OY(2)<127:WINDOWO, 0,39, 15,1: PRINT" [HOME] 
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[HOME]":FORJ=.T099:X=RND(U)*585:POKE1024 
+X,46 HA 

•200 P0KE55296+X,RND(U)*P+U:NEXT HB 
•210 CHAR, 1,5, "[GREEN] MILES TO NEXT BASE: 
[c 6][5"0"] [GREEN] SCORE [c 6][5"0"]" ON 

• 2 20 GOSUB360 : B=500 : 0» ( 10-V ) * . 1 : CHAR ,15,2 
,"[c 7]BASE [WHITE] ":PUDEF" ":PRINTUSING 
H$ ;B$(V) :PUDEF"0" :M0VSPR3, 480, 160: SPRITE 
3,1,V+1:P0KE4595,1 KB 

•230 J=BUMP(U):J=BUMF(U) BL 

•240 REM MAIN LOOP NG 

•250 DO:J=JOY(T):X=JOY(T)ANDG:IFDTHENMOVS 
PRU.+. ,+D:C=C+U:D=FNJ( . ) :ELSEMOVSPRU,+. , 
L: IFX=UANDJ<FrHEND=-U: C= , : SOUNDU , F*F , K, . 
,F*M, F*M, . : ELSEIFRNDC . )>QTHENZ=-(Z=. ) BB 
•260 0NFNF(.)G0SUB350:M0VSPRM,S(Z)#V:PRIN 
TA$ ; : PRINTUSINGF$ ; B; : B=B-U : PRINTB$ ; : PRIN 
TUSINGF$ ; S : J=BUMP(U) : LOOPUNTILB< . ORFNC( . 
) : ONFNCC . )G0T0300 , 340, 310 CP 

•270 M0VSPRU,+.,L:V=V+U:D=.:IFV<11THEN220IJ 
•280 F0RX=lTO8:M0VSPRX, .#.: NEXT: PLAY" V101 
Q$BV202I$BV105.W$BV203I$B04I$EV303XGI$BV 
204IGIGV3I$E03I$BV2IFI$EV303IGI$BV204IFQ 
GV3Q$E03Q$BV204Q$EQ$EV303QG" :X=. OF 
•290 J=1:D0:PRINT"[H0ME][7"[D0WN]"] [RVSON 
]"TAB(6)M$(X):C0L0R5,J:J=J+1+(J=16)*16:L 
0OPUNTILJ0Y(T)>127:RUN FC 

•300 G0SUB320:X=2:G0T029O AB 

•310 G0SUB320:X=l:GOTO290 BC 

•320 SYS65418:F0RX=1T08:M0VSPRX, .#. :NEXT: 

F0RX=1T03:SPRITEX, . ,2, , . :MOVSPRX,RS 

PP0S(U,.),RSPP0SCU,U):P0KE2039+X,61:NEXTJE 

• 330 S0UND3 , 4000 ,120,1, 500 , 500 , 3 : F0RX=1T0 
3 : MOVSPRX , X*45+20#2 : SPRITEX , U : NEXT : SLEEP 

2: P0KEVIC+21 , 248 : RETURN CF 

•340 POKE2042,61:MOVSPRM,.#.:SOUNDM,F*P,K 
*M , T , K*M , K*M , M : SPRITEM , . : MOVSPRM , 480 , + . : 
POKE2042 , 59 : SPRITEM, U : S-S+100+V : G0T0230 FN 

• 350 SPRITET , . : MOVSPRT, . # . :M0VSPRT, RSPPOS 
(U,.),RSPPOS(U,U):MOVSPRT,DCX)#P:SOUNDT, 
F*K,K,U,F,F,M:SPRITET,U:RETURN BG 

• 360 SPRITE3 , . : SPRITE4 , , , 2 , . , 1 , 1 , 1 : MOVSPR 
4 , 470 , 176 : P0KE2043 , 63 : SPRITE4, 1 : DO : X=RSP 
POS ( 4 , . ) : LOOPUNTILX>470ANDX<480 MA 

•370 SPRITE4,.,13,,,1,1,.:MOVSPR4,480,198 

:P0KE2043, 60 :SPRITE4,1: RETURN EG 

•380 PRINT" [HOME]"TAB( 7) "[YELLOW] AHOY! MA 

GAZINE PRESENTS [DOWN]" PH 

•390 PRINTTAB(8)" [GREEN] [RVSON] [RVSOFF] 
[RVSON] [c J] [c G] [c *] [c G][3" " 

][c G][3" "]" JE 

•400 PRINTTAB(8)"[ RVSON] [RVSOFF] [RVSO 

N] [c J] [c G][4" "][c G][c C][c V] [c 

G][c C][c V] " KK 

•410 PRINTTAB(8) "[RVSON] [RVSOFF] [RVSO 

N] [c J] [c G] [RVSOFF][c *][RVS0N] [c 
G] [c G] [c G] [RVSOFF][c *] [RVSON] [c 

*]» FH 
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•420 PRINTTAB(8)"[RVS0N][3" "][c M][4" "] 
[c G] [RVSOFF] [RVSON] [c G] [c G] [c G 
] [RVSOFF] [RVSON] " OJ 

•430 PRINTTAB(8)"[c 6] [RVSON] B[3" "]U[3 
" "]G[3" "]G[3" "]Y! " OA 

• 440 PRINTTABC 1 2 ) " [ YELLOW ] [ DOWN ] [ DOWN ] FOR 

THE C-128!":PRINTTAB(4)"[D0WN][c 6](C)1 
988 CLEVELAND M. BLAKEMORE" : RETURN CP 

•450 REM SPRITE DATA CG 

•460 DATA OF, 80,, 10, 47,, 23, 22,, 2E, 22,, 7F, 
FF,80,FF,FF,E0,FF,1,F0,FE,BA,F8,54,BA,55 
,FF,1,FF,FF,B9,FD,7F,76 KI 

•470 DATA FC,3E,E7,78,1,DB,80,3,81,C0,7D, 
,BE,D6, ,6B,92, ,49,92, ,49, D6, ,6B,7C, ,3E, , 
F, 80,, 10, 47,0 FE 

•480 DATA 23,22,,2E,22,,7F,FF,80,FF,FF,E0 
,FF,l,F0,FE,BA,F8,54,BA,55 f FF,l,FF,FF,B9 
,FD,7F,76,FC,3E,E7,78,1,DB CK 

•490 DATA 80,3,81,C0,7D,,BE,C6,,63,9A,,4D 
,B2, ,59,C6, , 63, 7C, ,3E,,F, 80, ,10,47, ,23,2 
2,,2E,22,0 OB 

•500 DATA 7F,FF,80,FF,FF,E0,FF,1,F0,FE,BA 
,F8,54,BA,55,FF,1,FF,FF,B9,FD,7F,76,FC,3 
E,E7,78,1,DB,80,3,81,C0,7D,0 KD 

•510 DATA BE,C6,,63,B2,,59,9A,,4D,C6,,63, 
7C,,3E,,,AA,,2,14,80,2,14,80,2A,AA,A8,99 
,96,66,AA,AA,AA HH 

•520 DATA 2A,AA,A8,,FF,,,,,,,,,,,, ,, 

,,,.»».t... r J GK 

• 530 DATAO , i , • > 1 1 1 1 > > > i • i m 1 1 > i » > t ) h f i • < 
,,,0 AJ 

•540 DATAO, , , , , ,FF,FF,FF,7F,FF,FE,7F,FF,F 
8,FF,FF,FC,6F,FF,FE,F,FF,F0,F,FF,30,C,FF 
,90,, 73, 80,, 20 NE 

•550 DATAO,,,,,, 24, 40, 9,,,, 24, 48, 2, 1,1,20 
,,20,8,10,2,80,4A,88,11,38,1,,7D,8,42,90 
,0 EB 

•560 DATAO, 28, 82, 90, 82,,, 10, 8, 20, 44, 1,8,, 
28,, 81,, 24,, 10,, 24, 40,1,,, ,4,,, , , ,0 LW 

•570 DATAO, ,,,,,,,,,, ,40, , ,42, , ,C3, ,1,C3, 
,1,C3,,1,E3,80,3,E7,80,7,FF,80 DK 

•580 DATA 07,FF,C0,7,FF,E0,7,FF,F0,7,FF,F 
0,F,FF,F0,F,FF,F8,3F,FF,FC,7F,FF,FC,FF,F 
F,FF,,,5,FC,,5,A8,0 CC 

•590 DATA 0F,FC,,A,A8,,F,FC,,8,,,8,, t 8,,5 
,55,50,15,55,54,55,55,55,66,69,99,55,55, 
55,66,69,99 G. 

•600 DATA 55,55,55,55,55,55,56,96,95,56,9 
6,95,56,96,95,56,96,95,56,96,95, ,7 KI 

•610 REM INTERRUPT DATA NC 

•620 DATA 78,A9,D,8D,14,3,A9,13,8D,15,3,5 
8,60,AD,F3,11,D0,3,4C,2F,13,AD,,DC,29,F, 
85,FD,A9,F,38,E5,FD,C9,4 G/ 

•630 DATA D0,3,CE,D6,11,C9,8,D0,3,EE,D6,1 
1,AD,D6,11,38,CD,F2,11,B0,9,AD,F2,11,8D, 
D6,11,4C,50,13,AD,D6,11,38,CD Al 

•640 DATA FA,11,90,6,AD,FA,11,8D,D6,11,A2 
,7,8E,F4,11,AD,F4,11,A,AA,E8,BD,D6,11,38 
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,CD,F0,11,B0,15,AD,F0,11,9D,D6 ID 
•650 DATA 11,E0,3,D0,1A,A9,FD,2D,15,D0,8D 
,15,D0,4C,88,13,BD,D6,11,38,CD,F1,11,90, 
6,AD,F1,11,9D,D6,11,CE,F4,11,30 DF 
•660 DATA 3,4C,55,13,CE,F5,11,30,16,AD,F6 
,11,8D,F5,11,AE,F7,11,E8,E0,3B,D0,2,A2,3 
8,8E,F7,11,8E,F8,7,AD,D8,11,38 HC 
-670 DATA CD,FA,11,90,8,A9,FD,2D,15,D0,8D 

,15, DO, 40,65, FA GM 

•680 REM BASES LN 

•690 DATA I,II,III,IV,V,VI f VII,VIII,TX,X 10 
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BASIC LOADER 

100 REM *** WINDOW DRESSING LOADER *** NC 
110 SA=4864:REM WILL RELOCATE LA 

120 CK=0 0L 

130 READD:CK=CK+D:IFD=999THEN150 AG 
140 G0T0130 KO 

150 IFCK<>30632THENPRINT"ERR0R IN DATA": 
END IC 

160 RESTORE CM 

170 NA=SA IP 

180 READD:IFD=999THEN230 AL 

190 IFD=>OTHENP0KENA,D:GOTO22O LP 
200 AD=SA+ABS(D) : H=AD/256 : L=AD-INT(AD/25 
6)*256 BB 

210 P0KENA,L:NA=NA+1:P0KENA,H BO 

220 NA=NA+1:G0TQ180 OA 

230 AD=SA+246 :H=AD/256 : L=AD-INT( AD/256)* 
256 LE 

240 P0KESA+181.L: POKES A+183,H NF 

250 PRINT"WIND0W DRESSING INSTALLED"SA"T 
0"NA CN 

260 PRINT"SYS"SA"FOR FRAME" CG 

270 PRINT"SYS"SA-J-3"FOR PRINT AT" EO 
280 PRINT"SYS"SA+6"F0R CRSR RESTORE" HJ 
290 PRINT"SYS"SA+9"F0R EDITOR SAVE/REGAL 
L" GF 

300 END KN 

310 DATA 184,80,26,184,80,86,184,80 MI 
320 DATA 122,184,80,113,176,192,174,221 MF 
330 DATA 29,221,173,192,189,0,0,0 FP 
340 DATA 0,40,80,120,160,32,80,193 IA 
350 DATA 165,248,133,207,32,229,202,162 OE 
360 DATA 255,32,-155, 164,229,200,132,206 MC 
370 DATA 32,-155,230,206,164,206,196,228 JI 
380 DATA 240,5,202,202,202,208,240,32 MM 
390 DATA -155,32,84,200,32,-144,165,207 JA 
400 DATA 133,248,230,229,230,230,198,228 JC 
410 DATA 198,231,32,50,202,76,111,199 NH 
420 DATA 72,165,236,141,-22,165,235,141 FM 
430 DATA -23,24,32,24,192,176,7,32 MP 



•440 DATA -144,104,240,16,96,104,173,-21 BM 

•450 DATA 208,249,76,40,125,201,5,144 AI 

•460 DATA 48,176,242,173,-22,133,236,173 MI 

•470 DATA 23,19,133,235,76,92,193,32 DD 

•480 DATA 134,3,240,222,32,92,121,76 HD 

•490 DATA 90,85,32,-170,164,230,200,232 IP 
•500 DATA 32,-171,200,196,231,208,248,232 NP 

•510 DATA 189,-12,76,12,192,134,195,168 EM 

•520 DATA 169,246,162,19,24,121,-24,144 IE 

•530 DATA 1,232,164,195,133,195,134,196 OF 

•540 DATA 162,26,152,208,22,160,37,136 HJ 

•550 DATA 181,224,145,195,202,16,248,162 GB 

•560 DATA 13,136,189,84,3,145,195,202 LM 

•570 DATA 16,247,96,160,37,136,177,195 LL 

•580 DATA 149,224,202,16,248,162,13,136 CN 

•590 DATA 177,195,157,84,3,202,16,247 DM 

•600 DATA 96,0,999 HB 

DEMO 

•100 REM WINDOW DRESSING DEMO GA 

•110 G0SUB510 JG 

•120 C0L0RBG,15:C0L0R4,15 FA 

■130 C0L0R5,8:WIND0W0,0,SW-1,4:SYS FR,,,, 
,M$;1:SLEEP1:PRINT"[ DOWN] [RIGHT] AS YOU C 
AN SEE[3"."]" 00 

•140 SLEEP1:PRINTEQ$"[ RIGHT jTHESE ROUTINE 
S[3"."]":SLEEP1:SYS ED, 0,0 PC 

•150 C0L0R5,14:WIND0W0,5,SW/2-l,24:SYS FR 
,,,,,M$;2:SYS ED, 1,0 KN 

•160 SYS ED, 0,1:PRINTEQ$"[ RIGHT ]DRESS UP 
YOUR WINDOWS, ":SLEEP1 HG 

•170 C0L0R5,2:WIND0WSW/2,5,SW-1,24:SYS FR 
,,,,,M$;3:SYS ED, 2,0 FO 

•180 SYS ED, 0,1 JD 

•190 PRINTEQ$"[ RIGHT] LET YOUR PROGRAMS[3" 

."]":SLEEP1 DO 

•200 PRINTEQ$"[ RIGHT] JUMP FROM WINDOW [3", 

"]":SLEEP1 HI 

•210 SYS ED, 1,1: LIST: SYS ED, 1,0:SLEEP1 MG 
•220 SYS ED,0,l:PRINTEQ$"[RIGHT]TO WINDOW 

[3\'T:SLEEP1 DA 

•230 SYS ED,2,1:LIST:SLEEP2 DG 

•240 SYS ED, 0,1:PRINTEQ$"[ RIGHT ]PRINT ANY 

WHERE[3"."]":SLEEP1 PB 

•250 SYS ED, 1,1: PRINT" [ DOWN ][RVS0N]HERE," 

;:SLEEP1:SYS AT, 0,12,0, ,EQ$"HERE,"; FC 
•260 SLEEP1:PRINT" OR HERE,":SLEEP1 NO 
•270 SYS ED, 0,1:PRINTEQ$" [RIGHT] AND RETUR 

N." NM 

•280 SLEEP3 EO 

•290 PRINrfRVSONjVCOLORS^ PB 

•300 WIND0W4,2,24,20,1:SYS FR, , , , ,"[3 n rRI 

GHT]"]MENU" OF 

•310 PRINT: PRINT" [RIGHT] 1. RESTART": PRINT 

"[RIGHT] 2. THE SHADOW" DJ 
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•320 PRINT" [RIGHT]3. THE TUNNEL": PRINT" [R 

IGHT]4. QUIT" JG 

•330 PRINT: PRINT: PRINT" [RIGHT] YOUR CHOICE 

?"; GD 

•340 SYS 52591: REM CRSR ON KP 

•350 GETKEY K$:IF K$<"1" 0RK$>"4"THENPRIN 

T"[3"[UP]"]":GOT0330 MH 

•360 SYS 52639, 32: REM CRSR OFF IL 

•370 PRINTK$ HK 

•380 K=VAL(K$):0NK GOTOllO.410,480 LJ 
•390 SLOW: END GO 

•400 REM SIMULATE A "FLOATING" WINDOW WIT 

H SHADOW EM 

•410 WIND0W7, 8, SW-9, 14: PRINT" [ BLACK ][RVSO 

N]" ; : AL=PEEK(FA) : AH=PEEK(FA+1) IP 
•420 P0KEFA,0:P0KEFA+1,11:REM POINT TO SP 

ACE CHARACTERS KG 

•430 SYS FR:WINDOW8,7,SW-8,13 BN 

■440 C0L0R5,8;PRINT"[RVS0N]";:SYS FR BF 
•450 POKE FA, AL: POKE FA+1,AH:REM DEFAULT 

FRAME KH 

•460 SLEEPS :GOT0280 GJ 

•470 REM TUNNEL DJ 

•480 C0L0R5.14 IK 

•490 F0RI=0T07:SYS FR:NEXT IP 

•500 G0T0280 BN 

•510 BG=0:SW=RWINDOW(2) EC 

• 520 SA=4864 : FR=SA : AT=SA+3 : CR=S A+6 : ED=SA+ 

9:FA=SA+172 OP 

•530 M$=" [ RIGHT ] [RVSON] WINDOW" :B1$="[ 9" " 

]" EN 

•540 F0RI=0T08:P0KE2816+I,ASC(MID$(B1$,I+ 

1,1)) KH 

•550 NEXT KK 

•560 IFSW=80THENBG=6:FAST OG 

•570 EQ$ sa "[UP]"+CHR$(27)+"Q" BN 

•580 RETURN NE 



GUERILLA 

FROM PAGE 16 



•10 P0KE53281, , :P0KE53280, .. :PRINTCHR$(8)C 
HR$(142)"[CLEAR][7"[D0WN]"]"TAB(15)"[PUR 
PLE]GUERILLA" DE 

•20 PRINTTAB(8)" [CYAN] [DOWN] [DOWN ](C) 1988 
CLEVE BLAKEMORE" NK 

•30 DIM T(7),B(7),E$(4),D$(103),I$(7) HA 

•40 V=53248:SP=204O;J=56320:S=54272 BJ 



L=7:P=5318 



MH 



E=5:XC=37: 



•45 M=90:I=1:N=16:C=.:G=30:U=1 

: AM= . : BM=4 : TH= . : LM=50 
•50 K=21:B=255:W=13:Q=V+39:R=2 

YC=19:H=3:XS=7:YS=24:Z=150:LV=1:DM=103 BH 
•60 F0RX=2T015 : READA : POKEV+X , A : NEXT : FORX= 

.T0127:READA:POKE832+X,A:NEXT NB 

• 70 F0RX= .T063 :P0KE1 1*64+X , . : P0KE15*64+X , 
70 AHOY! 



. :NEXT GB 

• 80 F0RX= .T012STEP3 : POKE 1 1*64+2 9+X , 24 : NEX 

T BC 

•90 P0KEll*64+35,255;POKESP,ll:POKEV,156: 
POKEV+1 , 188 : POKEV+39 , 1 FC 

• 100 F0RX=53000T053223 : READA : POKEX , A : NEXT BB 
•110 FORX=UTOL:B(X)=2[UPARROW]X:NEXT PH 
•120 A$="[RVS0N][c Y][s P] [RVSOFF][sEP][U 

P][3"[LEFT]"][RVSON][sEP][s C][s N][D0WN 
]":E$(.)=" [UP] [DOWN] [DOWN] [LEFT] ":E$( 
1)=" [DOWN] ":E$(2)=" [DOWN] " MJ 

•130 E$(3)=" [UP] [LEFT] ":E$(4)=" [UP] [ 
DOWN] ":BL$="[RVSON][RED]" PG 

•140 B$="[c 4][RVSON]":F0RX=.TO19:B$=B$+" 
[s 0][s P]":BL$=BL$+CHR$(32):NEXT:C$=RIG 
HT$(B$ t 39)+"[s 0]" JA 

•150 I$(.)="[RVS0FF] ":I$(l)="[RVSOFF][c 
G]":I$(2)="[RVSOFF][c H]":I$(3)="[RVS0FF 
][c J]":I$(4)="[RVSOFF][c K]":I$(5)="[RV 
SON][c L]" NM 

•160 I$(5)="[RVS0N][c N]":I$(6)="[RVS0N][ 
c M]":I$(7)="[RVS0N] ":V$="ENEMY DECIMAT 
ED [3"."] FORTRESS SAVED!!" EJ 

•170 F0RX=.T039:D$=D$+"[s I ] " : E$=E$+" [ s K 
]":NEXT BF 

•180 F0RX=.T016:F0RA=,T07:D$(X*6+A)=LEFT$ 
(BL$,X+2)+I$(A)+"[RVSOFF]":NEXT:NEXT GD 

• 190 POKEV+16 , 64+128 : F0RX=1T07 : POKESP+X , 1 
3:POKEV+39+X,5:NEXT JF 

• 200 G0SUB480 : GOSUB450 : G0SUB460 : X=FRE( . ) GD 
•210 FORX=.T01Q3:SYSP,9,23:PRINTD$(X):NEX 

T U 

• 220 X=l : POKEV+K , U : C=PEEK ( V+G ) : C=PEEK ( V+G 
):SYS53000 ND 

•230 REM MAIN LOOP OE 

• 240 F^PEEKC J)ANDN: X S =X+U+(X=L)*L: IFT'(X)TH 
ENT(X)=T(X)-U:IFT(X)=.THENG0SUB290 HO 

•250 C=RND(U)*M+U:IFC<L+UTHENIFT(C)=.THEN 
T(C)=G-INT(I) : POKEV+K, PEEK (V+K)0RB(C) IA 

■ 260 C=PEEK(V+G) :0N-(F>. )GOT0240:GOSUB390 
:AM=AM+U BE 

• 265 IFAM=LMTHENAM= . : BM=BM-U : SYSP , 27+H*BM 

, YS: PRINT" [ BLACK ]"A$; :0N-(BM=. )GOT0320 EC 

• 270 0N-(C=. )GOTO24O:FORA=UT0L: IF(CANDB( A 
))THENG0SUB340 JI 

• 280 NEXT : C=PEEK( V+G) : C=PEEK( V+G) : GOT0240 LE 
•290 SYSP,RND(U)*XC,RND(U)*H+YC:PRINTE$(R 

ND(U)*E) ; :POKEQ+X,W:GOSUB400:GOSUB390 BE 
•300 DM=DM-U:SYSP,9 J 23:PRINTD$(DM)" ":F0R 

A=.TON : POKEV+G+H , A : NEXT : A=X : IFDMGGT0380 PI 
•310 POKES+18,129:FORX=.T0400:POKES+15,RN 

D( . )*Z: POKEV+33 , XANDG: NEXT: G0SUB450 II 
•320 P0KEV+21,.: PRINT" [CLEAR] [5"[DOWN]"]" 

:PRINTTAB(4)"[c 3] OUR FORTRESS HAS BEEN 

DESTROYED !!" LI 

•330 PRINTTAB(12)"[c 5][3"[DOWN]"]FINAL S 



CORE : [ WHITE ] "SC : FORX= . T07000 : NEXT : RUN IE 

• 340 POKESP+A , W+U : POKEQ+A , R : SC=SC+Z*LV : SY 
SP.XS.YS: PRINT" [ WHITE ] [RVSOFF]"SC; :M=M+( 
M>L) DJ 

•350 IFK26THENI-I+.5 EN 

• 360 IFI=100RI=180RI=25THENLV=LV+U : P0KE20 
05,48+LV:G0SUB420 KM 

• 370 TH=TH+U : IFTH=ZTHENP0KEV+2 1 , . : PRINT" [ 
CLEAR][6"[D0WN]"]"TAB(ll)V$:GOSUB42O:GOT 
0330 KF 

•380 G0SUB410:P0KEV+K,PEEK(V+K)ANDCB-B(A) 
): POKESP+A, W:POKEQ+A,E:T(A)=.: RETURN MC 
•390 POKES+8, 4: POKES+l 1,1 29 :FORA=.TG50:NE 
XT :P0KES+1 1,1 28: RETURN EF 

•400 POKES+18 , 129 : F0RA=ZT0. STEP-E : POKES+l 
5,A:NEXT:P0KES+18,128:RETURN PM 

•410 F0RD=.TOZ: NEXT: RETURN MM 

•420 M$="25 133 142 1502421 502" :GOSUB450:POK 
ES+6,96:F0RLL=1TQ18STEP3 MC 

•430 POKES+l, VAL(MID$(M$,LL, 2) ):P0KES+4,1 
7 :P0RD»1T090*VAL(MID$(M$ , LL+2 , 1 ) ) :NEXT DH 
• 440 P0KES+4 , 16 : NEXT : GOSUB450 : G0SUB460 : RE 
TURN PN 

■ 450 F0RLL=ST0S+23 : POKELL , . : NEXT : POKES+24 

,15: RETURN GK 

•460 POKES+6,73:P0KES+I3,234:POKES+20,234 

: RETURN KH 

•470 REM GAME SCREEN DB 

•480 PRINT" [CLEAR] [ 5" [ RIGHT] "][c 8][RVS0N 

][5" "][WHITE][c *]" CF 

•490 PRINT" [ 5" [ RIGHT] "][e 8][RVS0N] [RVSO 
FF][3" "][RVSON] [WHITE] [RVSOFF] [GREE 
N][cEP] [cEP] [3"[cEP]"] [c 5] [RVSON] [c 
4][c *] [RVSOFF] [3" "][c l][RVS0N][s P][ 
s 0][s P][s 0][s P][s 0][s P][s 0][s P][ 
s 0][s P][c 2][c *]" PI 

•500 PRINT"[5"[RIGHT]"][c 8] [RVSON] [RVSO 
FF][3" "][RVS0N] [WHITE] [RVSOFF] [GREEN 
][cEP][cEP][c +][cEF][c +][cEP][c +][cEP 
][c +][c 5][RVS0N] [c 4] [c *][RVS0FF] 
[c l][RVSON][s 0][s P][s 0][s P][s 0][s 
P][s 0][s P][s 0][s P][s 0][c 2] [c *]" LB 
•510 PRINT" [5" [RIGHT]" ][c 8][RVS0N] [RVSO 
FF][3" "][RVSON] [WHITE] [RVSOFF] [GREE 
N][cEP][c -][c +][cEP] [RVSON] [c +][RVSOF 
F][c +][RVSON][c +] [RVSOFF] [cEP][c 5][RV 
SON] [c 4] [c 8][3" "][c l][s 0][s P][s 
. 0][s P] [RVSOFF] [3" "][RVSON][s P][s 0][ 
s P][c 2] " AI 

•520 PRINT" [RIGHT] [RIGHT] [c 5][RVS0N] [9" 
[c S]"] [c 8][c *][c 2][RVS0FF][s M][s V 
][s V][s N][s M][s V][a V][c 5][RVS0N] [ 
c 4] [c 8] [c l][s 0][s P][s 0][s P][s 
0] [RVSOFF] [3" "][RVSON][s OJ[s P][s P][ 
c 2] » HL 

•530 PRINT" [RIGHT] [RIGHT] [c 5][RVS0N] [6" 
[c S]"] [RVSOFF] [3" "][RVSON] [c 8] [c *] 
[c 2][c I] [c *][sEP] [RVSOFF] [s 0][c 5] 



[RVSON] [c 4] [c 8] [c l][s P][s 0][s 
P][s 0][s P][RVS0FF][3" "][RVS0N][s P][s 

0][s P][c 2] " KC 

•540 PRINT" [RIGHT] [RIGHT] [c 5] [RVSON] [6" 
[c S]"] [RVSOFF] [3" "][ RVSON] [c 8] [RVS 
OFF] [c 2][c *] [RVSON] [RVSOFF] [sEP] [c 

l][RVSON][s P][c 4] [c 8] [c l][s P][s 

0][s P][s 0][s P][s 0][s P][s 0][s P][s 

0][s P][s 0][c 2] " FA 

•550 PRINT"[ RIGHT] [RIGHT] [c 5] [RVSON] [6" 
[c S]"][RVS0FF][3" "][RVSON] [c 8] [RVS 
OFF] [c 2][RVS0N][c H][c L][RVSOFF] [c 

l][RVSON][s 0][c 4] [c l][s 0][s P][s 
][s P][s 0][s P][s 0][s P][s 0][s P][s 
][s P][s 0][s P][c 2] " CC 

•560 PRINT" [RIGHT] [RIGHT ][c 5] [RVSON] [9" 
[c S]"] [c 8] [RVSOFF] [c 2][RVS0N][c 
G][c N][RVSOFF] [c l][RVSON][s P][s 0][ 
s P][s 0][s P][s 0][s P][s 0][s P][s 0][ 
s P][s 0][s P][s 0][s P][s 0][c 2] " BB 
•570 PRINT" [RIGHT] [GREEN] [c -][c 5] [RVSON 
] [RVSOFF] [3" "] [RVSON] [6" [c S]"] [c 8] 

[GREEN] [RVSOFF] [c -] [c 2] [RVSON] [s Q][ 
c L] [RVSOFF] [c 1 ] [RVSON] [s 0][s P3[s 
][RVS0FF][3" "][RVSON][s 0][s P][s 0][s 
P] [RVSOFF] [3" "] [RVSON] [s P][s 0][s P][c 

2] " BD 

•580 PRINT" [GREEN] [c -][c -][c 5] [RVSON] 
[RVSOFF] [3" "] [RVSON] [6"[c S]"] [c 8] [ 
GREEN][RVSOFF][c -][c -][c 2][RVS0N][c H 
][c M] [RVSOFF] [c 1 ] [RVSON] [s P][s 0][s 

P][RVS0FF][3" "][RVSON][s P][s 0][s P][ 
s 0] [RVSOFF] [3" "][RVSON][s 0][s P][s 0] 
[c 2] " 00 

•590 PRINT"[GREEN][c -] [RVSON] [c + ][c 5] 
[RVSOFF] [3" "][RVS0N][6"[c S]"] [c 8] [ 
GREEN] [c +] [RVSOFF] [cEP][c 2][RVS0N] [R 
VSOFF] [c l][RVSON][s 0][s P][s 0][RVSO 
FF][3" "][RVSON][s 0][s P][s 0][s P][RVS 
0FF][3" "][RVSON][s P][s 0][s P][c 2] » KN 
•600 PRINT" [GREEN] [c +][c +][c 5] [RVSON] 
[9"[c S]"] [c 8] [GREEN][c +][RVS0FF][c 

+][c 2] [RVSON] [c M] [RVSOFF] [GREEN] [c 
-][c l][RVSON][s P][s 0][s P][s 0][s P][ 
s 0][s P}[s 0][s P][s 0][s P][s 0][s P][ 
s 0][s P][s 0][c 2] " AD 

•610 PRINT" [GREEN] [RVSON] [c +] [RVSOFF] [c 
+][c 5] [RVSON] [6"[c S]"][RVS0FF][3" "][ 
RVSON] [c 8] [GREEN] [RVSOFF] [c +] [RVSON 
][c +] [RVSOFF] [c +] [RVSON] [c +][ RVSOFF] [ 
c ~][RVSON][c +][c l][s 0][s P][s 0][s P 
][s 0][s P][s 0][s P][s 0][s P][s 0][s P 
Ka 0][s P][s 0][s P][c 2] " HN 

•620 PRINT"[GREEN][c +] [RVSON] [c +][c 5] 
[6"[c S]"][RVS0FF][3" "][RVSON] [c 8] [ 
GREEN] [4"[c +]"] [RVSOFF] [c +][ RVSON] [c + 
][c l][s P][s 0][s P][s 0][s P][s 0][s P 
][s 0][s P][s 0][s P][s 0][s P][s 0][s P 
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CO 



][s 0][c 2] " 
■630 PRINT" [GREEN] [c +][c +][c 5][RVS0N] 
[6"[c S]"][RVS0FF][3" "] [RVSON] [c 8] [ 
GREEN] [c +] [RVSOFF] [c +][RVS0N][4"[c +]" 
][c l][s 0][s P][s 0][s P][s 0][s P][s 
][s P][s 0][s P][s 0][s P][s 0][s P][s 
][s P][c 2] " GM 

640 PRINT" [c 5]"D$E$B$C$B$C$B$;"[RVS0FF] 
[ WHITE ]GUERILLA" EC 

650 PRINT" [c 8] SCORE [WHITE]-[7" "][c 7] 
ATTACK [WHITE] 1[ RIGHT ][c 5]AMM0[c 2]"A$A 
$A$A$; "[HOME]": RETURN MK 

660 REM SPRITE LOCATION DATA HG 

670 DATA96, 93, 72, 61, 48, 125, 96, 158, 217, 12 
6, 17, 126, 17, 78: REM V+16=64+128 LJ 
680 REM SPRITE DATA CD 

690 DATAl.252,,3,254,,7,199,,7,56,128,6, 
221,128,1,125,, IG 

700 DATA6, 21,, 4, 46, 128, 4, 29, 96, 12, 35, 104 
,28,62,220,60,62,62 AG 

710 DATA124 , 56, 31 , 124, 54, 15, 121 , 45, 15, 11 
4,155,239,4,87,239,10,175,222 HA 

720 DATA19, 215, 156, 32, 107, 124, 193,245, 12 
0,,, ,126,18,15,195,9,23 EM 

730 DATA97,36,63,225, 18,63, 225,8, 51,222, 
1,179,128,7,222,180,15,225 HK 

740 DATA110, 31, 126, 223, 62, 252, 191, 61, 248 

,95,1,240,95,126,104,95,185,216 FH 
750 DATA223,85, 183,190,147,110, 136,16,22 
1,240,3,187,240,4,117,80,15,250,80,. JE 
760 REM INTERRUPT ROUTINE IG 

770 DATA 120,169,31,141,20,3,169,207,141 
,21,3,169,166,141,17 IN 

780 DATA 3, 169, 207, 141, 18, 3, 88, 96, 173,, 2 
20,41,15,133,253 LB 

790 DATA 169,15,56,229,253,168,185,221,2 
07,240,8,141,168,2,160 AL 

800 DATA 0,32,60,207,76,163,207,173,168, 
2,10,170,189,202,207 NJ 

810 DATA 8,152,10,170,40,48,25,240,43,17 
3,220,207,24,125,0 KN 

820 DATA 208, 157,, 208, 144, 31, 169, 1,77, 16 
,208,141,16,208,76 MI 

830 DATA 120, 207, 189,, 208, 56, 237, 220, 207 
,157,, 208, 176, 8, 169 AG 

840 DATA 1,77,16,208,141,16,208,173,168, 
2,10,170,232,189,202 II 

850 DATA 207,8,152,10,170,232,40,48,15,2 
40,23,173,220,207,24 FF 

860 DATA 125,, 208, 157,, 208, 76, 162, 207, 18 
9,, 208, 56, 237, 220 MF 

870 DATA 207, 157,, 208, 96, 76, 49, 234, 173,, 
220,41,15,133,253 CL 

880 DATA 169,15,56,229,253,168,185,221,2 
07, 168, 169,, 108, 5,0 IN 

890 DATA 32,155,183,138,72,32,155,183,10 

72 AHOY! 



entering any programs 
MC 



4,168,24,76,240,255,0 
•900 DATA 0,, 255, 1,255,1,, 1,1,, 1,255, 1,25 

5,0 
•910 DATA 255,255,3, ,1,5, ,7,8,6, ,3,2,4 

TOMB OF HORROR 



. 



MB 
KF 



BASIC PORTION 



•10 IFX=.THENX=1:L0AD"TGMB.0BJ",8,1 
•20 POKE56,144:POKE55,0:CLR 
•30 P0KE53280, . :P0KE53281, . :X=RND(-TI) :F0 
RX=901T0970 : READA : POKEX , A : NEXT 

• 40 F0RX=828T0839 : READA : POKEX , A : NEXT: FORX 
=679T0753 : READA : POKEX , A : NEXT: GOT0790 

•50 D=RND(U)*G:P0KES+K,U<D):P0KES+7,V(D): 
POKES+G , U( D+K+F) : POKES+G-U , V( D+K+F) 
•60 RETURN 

• 70 VL=FC :ONFC+UGOSUB450 , 450 , 460, 470, 480 
•80 RETURN 

• 90 0NFC+UG0SUB500 ,510, 520 , 530 : RETURN 

• 100 0NFC+UG0SUB540 , 550 , 560: RETURN 

■110 PRINT" [HOME] [BLACK] [RVSON] + [36" "]/ 

•120 PRINT" [ RVSOFF ][ 36" [SS]"][ RVSON] 

•130 PRINT" [RVS0FF][36"[SS]"][RVS0N] 

•140 PRINT" [RVS0FF][36"[SS]"][RVS0N] 

•150 PRINT" [RVS0FF][36"[SS]"][RVS0N] 



■160 PRINT" [RVS0FF][4"[SS]"]"Z$"[RVS0N] 

( [ BLACK ] [ 26" " ] "Z$" ) [ BLACK ] [ RVSOFF ] [ 4" [ S 

S]"][RVSON] "; 
•170 PRINT" [RVSOFF] [4"[SS]"][RVS0N][SS] 

"Z$"( [ BLACK ][24'V]"Z$")[ BLACK ][SS][RVS0 

FF][4"[SS]"][RVS0N] "; 
■180 PRINT" [RVSOFF] [4"[SS]"][ RVSON] [SS] 

[SS] +[20" "]/ [SS][SS][RVS0FF][4"[SS]"] 

[RVSON] "; 
•190 PRINT" [RVSOFF] [4" [SS]"] [RVSON] [SS] 

[SS] [RVSOFF] [20"[SS]"][ RVSON] [SS][SS 

] [RVSOFF] [4"[SS]"] [RVSON] "; 
•200 PRINT" [RVSOFF] [4"[SS]"j [RVSON] [SS] 

[SS] [RVSOFF] [SS][SS]"Z$" [RVSON] ([BLACK 

][14"="]"Z$")[BLACK][RVS0FF][SS][SS][RVS 

ON] [SS][SS][RVS0FF][4"[SS]"] [RVSON] " 

•210 PRINT" [RVSOFF] [4"[SS]"] [RVSON] [SS] 
[SS] [RVS0FF][SS][SS][RVS0N][SS]+[12" " 
]/[SS] [RVSOFF] [SS][SS] [RVSON] [SS][SS][ 
RVSOFF] [4"[SS]"] [RVSON] "; 

•220 PRINT" [RVSOFF] [4" [SS]"] [RVSON] [SS] 
[SS] [ RVSOFF ][ SS ] [SS][ RVSON ][SS] [RVSOF 
F][12"[SS]"] [RVSON] [SS] [RVSOFF] [SS][SS] 



HH 
BD 

MJ 

AG 

DM 
MK 
DN 
NO 
LJ 
CL 

FG 

AI 

DC 

DM 

FG 

LB 

JF 

BJ 
LO 



PP 



PH 



[RVSON] [ SS ][ SS ][ RVSOFF ][ 4" [SS]"][ RVSON 

] "; 

■230 PRINT" [RVSOFF] [4" [SS]" J [ RVSON ][SS] 
[SS] [RVS0FF][SS][SS][RVSON][SS] [RVSOF 
F ] [ SS ] "Z$ M [ RVSON ] ( [ BLACK ] [ 8"=" ] "Z$" ) [ BLA 
CK ] [ RVSOFF ] [ SS ] [ RVSON ] [ SS ] [ RVSOFF ] [ SS ] [ 
SS] [RVSON] [SS][SS] [RVSOFF] [4"[SS]"][RV 
SON] "; 

•240 PRINT" [RVSOFF] [4"[SS]"] [RVSON] [SS] 
[SS] [ RVSOFF] [ SS][SS][ RVSON] [SS] [RVSOF 
F][SS][RVSON][SS] "Z$" [RVSOFF] [c +][4"[c 
Z]"][s *] [BLACK] [RVSON] [SS] [RVSOFF] [SS 
][RVSON] [SS][RVSOFF][SS][SS][RVSON] [S 
S][SS] [RVSOFF] [4"[SS]"] [RVSON] "; 

•250 PRINT" [RVSOFF] [4" [SS]"] [RVSON] [SS] 
[SS] [RVSOFF] [SS][SS] [RVSON] [SS] [RVSOF 
F] [SS] [RVSON] [SS] "Z$"[ RVSOFF] [PI] [BLACK 
][4" "]"Z$"[RVS0FF][c *] [BLACK] [RVSON] [ 
SS ][ RVSOFF ][SS][ RVSON] [ SS] [RVSOFF] [SS][ 
SS] [RVSON] [SS][SS] [RVSOFF] [4" [SS]"][RV 
SON] "; 

■260 PRINT" [RVSOFF] [4"[SS]"] [RVSON] [SS] 
[SS] [RVSOFF] [ SS ][SS][ RVSON ][SS] [RVSOF 
F][SS] [RVSON] [SS] "Z$" [RVSOFF] [PI] [BLACK 
][4" "]"Z$"[RVSOFF][c *][BLACK][RVSON] [ 
SS] [RVSOFF] [SS] [RVSON] [SS] [RVSOFF] [SS] [ 
SS] [RVSON] [SSJ[SSJ [RVSOFF] [4"[SS]"][RV 
SON] "; 

•270 PRINT" [RVSOFF] [4"[SS]"] [RVSON] [SS] 
[SS] [RVSOFF] [SS][SS] [RVSON] [SS] [RVSOF 
F][SS]"Z$"[RVS0N]<[BLACK][8" "]"Z$">[BLA 
CK] [RVSOFF] [SS] [RVSON] [ SS][ RVSOFF] [SS] [ 
SS][ RVSON] [SS][SS] [RVSOFF] [4" [SS]"][RV 
SON] "; 

•280 PRINT" [RVSOFF] [4"[SS] M ] [RVSON] [SS] 
[SS] [RVSOFF] [SS][SS] [RVSON] [SS]/[12" " 
]+[SS] [RVSOFF] [SS][SS] [RVSON] [SS][SS][ 
RVSOFF] [4"[SS]"] [RVSON] "; 

•290 PRINT" [RVSOFF] [4" [SS]"] [RVSON] [SS] 
[SS] [ RVSOFF] [ SS ][ SS]"Z$"[ RVSON ]<[ BLACK 
][14" "] "Z$">[ BLACK ][ RVSOFF] [SS][SS][RVS 
ON] [SS][SS][RVS0FF][4"[SS]"] [RVSON] " 



FI 



HF 



NP 



FE 



EP 



HB 



JI 



[ RVSOFF ][ 4" [ SS }" ][ RVSON ][SS] 
']+ [SS][SS][RVS0FF][4"[SS]"] 

[RVSOFF] [4"[SS]"] [RVSON] [SS] 
"]+[SS][SS] [RVSOFF] [4"[SS]"][R 



•300 PRINT" 

[SS] /[20" 

[RVSON] " 
•310 PRINT" 

[SS]/[22" 

VSON] "; 
■320 PRINT" [RVSOFF] [4"[SS]"] [RVSON] [SS] 

"Z$"<[ BLACK] [24" "] "Z$">[ BLACK ][SS][RVSO 

FF][4"[SS]"][RVS0N] "; 
•330 PRINT" [RVSOFF] [4" [SS]"]"Z$"[ RVSON] 

<[BLACK][26" ")"Z$">[BLACK] [RVSOFF] [4"[S 

S]"][RVSON] "; 
•340 PRINT" /[36" "] + "; 
•350 PRINTD$B$D$I$(DL(CL t T))TAB(G+H)"[WHI 

TE]"D$(CD*-(CU=G))"[c 3]"; 



BJ 



IM 



EK 



BP 



MB 
BI 

LG 



360 PRINTTAB(39-LEN(T$(DL(CL,U))))T$(DL( 
CL,U));:SYSRL: RETURN EN 

370 PRINT" [HOME] [RVSOFF] [DOWN] ":FORX=, 
T020: PRINT" ": NEXT: RETURN GC 

380 PRINT" [HOME] [RVSOFF] [7" [DOWN] 11 ]": FOR 
X=.T010:PRINTTAB(8)" ": NEXT: RETURN FN 
390 PRINT" [HOME] [RVSOFF] [11" [DOWN]"]" ;TA 
B(13)" [DOWN] [LEFT]" ;:FORX=,TOF: PRINT" [ 
DOWN] [LEFT]";: NEXT: RETURN EH 

400 PRINT" [HOME] [13"[D0WN]"]";TAB( 16)" [ 
DOWN] [LEFT] [DOWN] [LEFT] ": RETURN CE 
410 PRINT" [ HOME ][ RVSOFF] ":F0RX=.T021:PRI 
NTTABC 39 )CHR$( 20) CHR$( 32): NEXT: RETURN PN 
420 PRINT" [HOME] [RVSOFF] [7"[D0WN]"]":F0R 
X=.T010:PRINTTAB(30)" ": NEXT: RETURN A A 
430 PRINT" [ HOME] [10" [DOWN]" ]" :F0RX-.T05: 
PRINTTAB(26)" ": NEXT : RETURN BO 

440 PRINT" [HOME] [RVSOFF] [13"[ DOWN ]"]";TA 
B(23)" [DOWN] [LEFT] [DOWN] [LEFT] ":RETUR 
N MM 

450 PRINT" [HOME] [5" [DOWN]"] [RVSOFF]"; :F0 
RX=.T017:PRINTTAB(6)W1$:NEXT:RETURN 10 
460 PRINT"[H0ME][9"[D0WN]"] [RVSOFF]"; :F0 
RX=.T09:PRINTTAB(12)W2$:NEXT: RETURN BP 
470 PRINT" [HOME] [11" [DOWN]"] [RVSOFF]" ;:F 
ORX=.T05:PRINTTAB(I5)W3$: NEXT: RETURN PI 
480 PRINT"[HOME][13"[D0WN]"] [RVSOFF]"; :F 
ORX=.TOT:PRINTTAB(17)W4$: NEXT: RETURN ED 
490 RETURN HJ 

500 PRINT" [ HOME] [ 23" [ DOWN] "]"TAB(13)S1$; 
: RETURN MP 

510 PRINT" [ HOME] [ 20" [ DOWN ]"]"TAB(15)S2$; 
: RETURN IB 

520 PRINT" [HOME] [17"[D0WN]"]"TAB(17)S3$; 
: RETURN JD 

530 PRINT" [HOME] [16" [DOWN]" ]"TAB(18)S4$; 
: RETURN IH 

540 PRINT" [HOME] "TAB( 13) El$: RETURN MG 
550 PRINT"[HOME][7"[DOWN]"]"TAB(15)E2$:R 
ETURN ON 

560 PRINT" [HOKE] [ 10" [ DOWN] "]"TAB( 17 )E3$: 
RETURN FB 

570 IF(DL(CL,.)ANDB(F+H))=.THEN610 MF 
580 SB=PEEK(V+21):P0KEV+21, . :G0SUB2730:G 
OSUB25IO:DL(CL,.)=(DL(CL,.)ANDG) GH 
590 X«INT(RND(U)*10*(DL+U)):C$(l)o M Y0U T 
AKE"+STR$(X)+" HP DAMAGE!": AA=18:N=1 EI 
600 LF=LF-X : GOSUB2570: G0SUB3120: FORX= .TO 
2000 : NEXT : G0SUB2880: POKEV+21 , SB OA 
610 PRINTD$TAB(G+H)"MOVE!"; :CEM=FNTE( . ) : 
P0KESE,CEM:G0SUB110:PRINTZ$; JA 

620 FC=F:VL=FC:LV=CD-U+F*-(CD=U):RV=CD+U 
+F*(CD=F) JL 

630 EBM=FNCP(.):IFEBM>.ANDEBM<DETHEN650 JD 
640 FC=FC-U:ON-(FC>-U)GOT0630: RETURN KK 
650 EL=FNCP(LV) :ER=FNCP(RV) :IFDL(EBM, . )T 
HEN670 FB 

660 GOSUB70 : FC=FC-U : ONU- ( FC< . ) GOT0630 , 71 

AHOY! 73 



CI 

• 670 IFDLCEL , . ) ANDFC<FTHENONFC+UGOSUB370 , 
380,390,400 LJ 

•680 IFDL(ER, . )ANDFC<FTHEN0NFC+UG0SUB410, 

420,430,440 AO 

•690 FORD=.TOH:IF(DL(EBM f ,)ANDB(D))THENON 

DGOSUB90, 100 , 70: PRINTZ$ ; HE 

•700 PRINT" [RVSOFF]" ; :NEXT:FC=FC-U: IFFO- 

UTHEN630 LD 

•710 G0SUB720:CSM=FNSW( . ) :POKEV+24, (PEEK( 

V+24)AND15)ORCSM:POKEV+21,EL:RETURN ID 
•720 IFFCANDVLTHENVL=VL-U MO 

•730 D=191:P0KEFNMP(U) t D:P0KEFNMP(T),D:P0 

KEFNMP(H),D:POKEFNMP(F+U),D HK 

• 740 EL= . : ER= . : P0KEV+2 1 , . : F0RX=VLT0 . STEP- 
U:FC=FNCM(X):IFDL(FC,U)=.THEN780 JH 

•750 FC=ABS(DL(FC,U)-U):EU(ELORSP(X+F)) OJ 
•760 MB=SP(X)-U:FORD=UTOLEN(SB$(X,FC)):PO 

KEFNMP(MB+D),ASC(MID$(SB$(X,FC),D,U)) BC 
•770 POKEBC+SP(X)+D,CS(FC):NEXT HA 
■780 NEXT :SB=EL: RETURN HN 

•790 PRINTCHR$(147)CHR$(8)CHR$( 142) "[BLUE 

] STAND BY[4"."]":G0SUB2900:G0SUB2980 OG 
•800 DIMDL(383,3),B(15),SP(7) ( SB$(3,12),D 

$(4),CS(12),L$(6),I(30),M(24),MH(24) OE 
•810 DIMCM$(14),T$(13),I$(30),C$(30),C(30 

),M$(44),LV(2,2),CZ$(2),H(8),SM${8) KK 
•820 DIMTS(24),U(26),V(26) MN 

•830 FC=. :CU17:CD=2:VL=. :EL=. :ER=. :VS=. : 

LF=20:M=. :W=.005:Z=.94:WL=17 LP 

•840 TL=388:TGL=16:CSM=. :CEM=192:DE=383:V 

=53248 :SB=. :RL=828:SE=648:SR=679 PM 
•850 U=1:T=2:H=3;F=4:K=8:G=15:J0Y=56320:D 

L=.:DM=.:AR=.:CU=.:WE=. HH 

•860 S=54272:BC=V+38:SS=. :SC=. :CC=55296:S 

2=959 ; i= LM 

•870 D(1)=1:D(2)=16:D(3)=-1:D(4)=-16 DM 
•880 H(.)=1:H(1)=10:H(2)=2:H(3)=2:H(4)=1- 

H(5)=7:H(6)=3:H(7)=13:H(8)=5 DJ 

•890 SP(,)=.:SP(1)= S 4:SP(2)=6:SP(3)=7:SP(4 

)=15:SP(5)=48:SP(6)=64:SP(7)=128 DM 
•900 D$(.)=" ? ":D$(1)="EAST ":D$(2)="S 

0UTH":D$(3)="WEST ":D$(4)="N0RTH" A J 
•910 SM$(.)= H [EP][EP]":F0RX=1T08:SM$(X)=C 

HR$(32)+CHR$(32):NEXT:CR$=CHR$(13) AG 
•920 FORX=.T038:W$=W$+CHR$(160) :B$=B$+CHR 

$(32):MB$=MB$+"*":NEXT ON 

•930 D$="[H0ME][c 8] [RVSOFF]" :F0RX=.T023: 

D$=D$+"[DOWN]":NEXT LB 

•940 Wl$=LEFT$(W$ t 28) :W2$=LEFT$(W$, 16) :W3 

$=LEFT$(W$,10):W4$=LEFT$(W$ t 6) GP 
•950 S1$="[RVS0N] [BLACK] )"+LEFT$(W$, 12)+" 

(":S2$=" [RVSON][ BLACK] )"+LEFT$(W$,8)+"("CC 
•960 S3$="[RVS0N][BLACK])"+LEFT$(W$,4)+ ,, ( 

":S4$="[RVSON][BLACK])"+LEFT$(W$,2)+"(" FB 
•970 El$="[RVSON][BLACK]>"+LEFT$(W$,12)+" 

<":E2$="[RVS0N][BLACK]>"+LEFT$CW$ t 8)+"<"IM 



•980 E3$="[RVSON][BLACK]>"+LEFT$(W$,4)+"< 

":CZ$(.)-"[c 4]":CZ$(1)="[BLUE]":CZ$(2)= 

"[c 2]" HL 

•990 I$( . )=LEFT$(B$ , 15) :T$( . )=LEFT$(B$, 13 

) CM 

•1000 DEF FNCP(X)=FC#D(CD)+(CL+D(X)):DEF 

FNSW(X)»(TGL-CSM) EP 

•1010 DEF FNTE(X)=(TL-CEM):DEF FNCM(X)=X* 

D(CD)+CL:DEF FNMP(X)=CEM*256+1016+X OP 
•1020 DEFFNJ(X)=(G-(XANDG)):DEFFNC(X)=(LF 

<K)*-T+(LF>KANDLF<G)*-(F+H) JP 

•1030 DEFFNCD(X)=CD+(CD=F+U)*F+(CD=.)*-F: 

DEFFNJF(X)=((JYAND(G+U))=.) DH 

•1040 DEFFNH(A)=(AR+I(AR)*T+LF/K) OJ 
•1050 F0RX=.T015:B(X)=2[UPARROW]X:NEXT KA 
•1060 F0RX=.T0DE:READD:DL(X,.)=D: NEXT: FOR 

X= .T015 : READA : POKEV+X , A : NEXT IP 

•1070 F0RX=1T013:READT$(X):NEXT:F0RX=.T02 

4 : READA :M(X)=A: NEXT IB 

• 1080 FORX= . T01 2 : READCS( X ) : NEXTX : F0R1= . TO 
24:READTS(X):NEXT CC 

• 1090 F0RX=.T06:F0RA=.T03:SB$(A,X)=CHR$(3 
2+X):NEXTA,X EM 

•1100 F0RX=7T012:F0RA=.T03:READSB$(A,X):N 

EXTA.X JL 

•1110 F0RX=.T01:SB$(X,.)=CHR$(191)+CHR$(3 

2): NEXT BG 

•1120 FORX=1T030:READI$(X);NEXT:FORX=1T01 

4:READCM$(X):NEXT IP 

•1130 F0RX=.T02:F0RA=.T02:READLV(X,A):NEX 

TA,X:F0RX=1T044:READM$(X):NEXT OD 
•1140 J=1:F0RD=.T0T:F0RX=.T0K-U GN 
•1150 A=INT(RND(U)*96+(D*128+16)):0N-(DL( 

A,.)=,)G0TO1150:DLCA,U)=M(J):M(J)=A CB 

• 1 1 60 MH( J)=J*F* ( D+U) : J«J+U : NEXT : NEXT : FOR 
X=.T063:POKE61376+X,.:NEXT FD 

•1170 F0RD=.TOT:FORX=.T010 FD 

•1180 A=INT(RND(U)*96+(D*128+16)):ON-(DL( 
A.O^OGOTOllSO^LCA^O^DLCA.OORBC?) DF 
•1190 NEXT:NEXT ON 

• 1200 F0RX=.T026:A=2703*(2[UPARR0W]((X-20 
)/l 2) ) : IFA>65535THENA=65535 LM 

•1210 U(X)=INT(A/B(K)):V(X)= S A-U(X)*BCK):N 

EXT IB 

■1220 DL(WL,T)=U:DL(WL,H)=U:DL(WL+16,T)=1 

0:DL(WL+16,H)=U MG 

•1230 PRINTCHR$(147)CHR$(14):P0KEV+21 J .:P 

OKEV+23,127:POKEV+29,15 CB 

•1240 P0KEV+17,PEEK(V+17)0R64:G0SUB2890:G 

0SUB610 JB 

•1250 SS=144:SC=148:GOSUB2730 IG 

•1260 C$(U)=M$(31):B0$="[c 4]":MC$="[WHIT 

E ] " : N=U : GOSUB2540 : GOSUB2880 : GOSUB3050 : IT 

-TT+IOOO CM 

•1270 JY=PEEK(J0Y) : J=FNJ( JY) :B=DL(CL,U) :I 

FB>,THENIFRND(U)+B/50>ZTHENGOSUB1590 PJ 
•1280 0N-(RND(U)>Z)G0SUB50:0N-(FNJF(J)AND 
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AR>.)G0SUB1630 PN 

•1290 I FJTHENQNJGOSUB 13 80, 1460,80, 1490,80 

,80,80,1500 DK 

•1300 P0KEV+K*F,FNC(.):LF=LF+W:ON-(TI>IT) 

G0SUB1510:0N-(LF>,)GOTO127O NO 

•1310 J=. :D=.:FORX=UT0100:POKE63488+32*K+ 

RND(U)*K,RND(U)*255+U:NEXT FP 

•1320 PRINT" [ BLACK ][ CLEAR ]":P0KEV+21, . : GO 

SUB3130:FORX=25OTO15OSTEP-U:SYSSR, , ,240, 

X . 17 1 PN 

•1330 NEXT:F0RX=.T07:P0KE63488+32*K+X, . :N 

EXT:X=. AB 

•1340 P0KEV+17,PEEK(V+17)AND191 BL 
•1350 C$(1)=M$<43+X):C$(2)="":C$(3)="[WHI 

TE][5" "]P L A Y[3" "]A GAIN ?[3" »]" FG 
•1360 B0$="[RED]":MC$="[c 3]":N=3:G0SUB25 

60: G0SUB2520: IFI=UTHENP0KES+24 , . :RUN30 GP 

• 1370 POKESE, 4 : P0KE679 , . : SYS679 DL 
•1380 IFDLCCL+DCCD) , . )=.THENGOSUB3120:RET 

URN NA 

•1390 CL=CL+D( CD) :G0SUB570: RETURN PA 

• 1400 ON-(B> . )G0T080: SB=PEEK(V+21) : SS=144 
:SC=148:GOSUB2730 IE 

•1410 GOSUB2710:POKEV+21, . :G0SUB2740:SS=1 

52:SC=156:G0SUB2730 OK 

•1420 G0SUB2710:GOSUB279O:ON-(I=G-U)G0T01 

450 PL 

•1430 0NIG0SUB1800, 1850, 1930, 1940, 1950, 19 

60, 2020, 2100, 2240, 2320, 2350, 2430, 2480 FL 
•1440 SS=152:SC=156:GOSUB288rj:GOT01420 HO 
•1450 SS=144:SC=148:G0SUB2880:P0KEV+21,SB 

:X=FRE( . ) :G0SUB50: RETURN HC 

•1460 IFFNJFC . )THEN1400 FN 

•1470 IFDL(CL-D(CD),.)=.THENGOSUB3120:RET 

URN OH 

•1480 CL=CL-D(CD):G0SUB570: RETURN KB 
•1490 CD=CD-U:CD=FNCD(.):G0SUB5 70: RETURN EL 
■ 1500 CD=CD+U:CD=FNCD( . ) :G0SUB5 70: RETURN EI 
■1510 D=DL*K+U:J=D+K-U:FORX=DTOJ:ON-(MH(X 

)=,)G0T01580:A=-U DM 

•1520 IFCL<M(X)-KTHENA=M(X)+D(F) HP 
•1530 IFCL>M(X)+KTHENA=M(X)+D(T) 00 

• 1540 IFCL>M(X)ANDCL<M(X)+KTHENA=M(X)+D(U 

) IJ 

•1550 IFCL<M(X)ANXL>M(X)-KTHENA=M(X)+D(H 

) JP 

•1560 IFA<.0RA>DETHEN1580 FJ 

•1570 IFDL(A,,)ANDDL(A,U)=.THENDL(A,U)=AB 

S(DL(M(X),U)):DL(M(X),U)=.:M(X)=A JA 
•1580 NEXT:0N-(DL(CL,U)>.)G0SUB3030:G0SUB 

730 : P0KEV+21 , EL: IT=TI+SZ : RETURN AD 
•1590 IFCU=20THENRETURN LP 

•1600 IFWETHENB=B*((G-WE)/10) CP 

•1610 LF=LF-B*T:G0SUB3120:FORX=.T0H:WAITV 

+17,128:P0KEV+34,H(X):P0KEV+35,H(X) OD 

• 1620 NEXT:G0SUB2890:P0KEV+K*F, FNC( . ) : RET 
URN JN 



1630 0N-(B=.0RCU=20)G0T08r"j:E=CL:DM=FNH( . 
):X=. DD 

1640 0N-(MH(X)=.)G0T01790:0N-(E<>M(X))G0 
T01790:MH(X)=MH(X)-DM:G0SUB3120 AO 
1650 FORD=FT0K:WAITV+17,128:POKEV+34,H(D 
):P0KEV+35,H(D):NEXT:G0SUB2890 IE 
1660 0N-(MH(X)>. }G0T01790:MH(X)=. :DL(E,U 
)=.:M(.)=. AF 

1670 LV=.:A=-U DH 

1680 A=A+U:FC=E+D(A)*LV:IFFC<,ORFC>DETHE 
N1710 MG 

1690 IFDL(FC,.)=.ORDL(FC,T)THEN1710 MN 
1700 DL(FC,T)=TS(X):DL(FC,H)=U+INT(-(TS( 
X)<G)*RND(U)*H):GOT01730 JB 

1710 IFA=FTHENA=.:LV=LV+U EA 

1720 GOT01680 BG 

1730 FORX=.TOG:F0RD=UT0F DM 

1 740 POKEBC+D , X : NEXT : NEXT: POKEV+2 1 , PEEK ( 
V+21)AND240 JF 

1750 G0SUB3090:LF=LF+B CJ 

1760 X=26+RND(U)*5:I(X)=I(X)+INT(RND(U)* 
50*B*(LV+U)) JK 

1770 C$(1)="A "+M$(22+RND(U)*H)+" "+M$(2 
5+RND(U)*H)+" OF "+I$(X)+"." PB 

1780 B0S=" [ YELLOW ]": MC$="[ WHITE ] n :N=U: GO 
SUB2730 : G0SUB2540 : G0SUB2880 : G0SUB350 : RET 
URN OD 

1790 X=X+U:0N-(X<25)G0T01640: RETURN PE 
1800 IFDL(CL,T)=.THENC$(U)="NOTHING HERE 
!":N=U:B0$=" [PURPLE ]":MC$= "[WHITE ]":G0SU 
B2540: RETURN EH 

1810 IFDL(CL,T»14THEN1830 NJ 

1820 IFI(DL(CL,T))THENC$(U)="YOU HAVE A 
"+I$(DL(CL,T)):N=U:G0SUB2540: RETURN NF 
1830 I(DL(CL,T))=I(DL(CL,T))+DL(CL,H):C$ 
(U)=I$CDL(CL,T))+" TAKEN!" AE 

1840 N=U:B0$=" [WHITE] ":DL(CL,T)=. :PRINTD 
$I$(.);:G0SUB2540: RETURN CN 

1850 IFDL(CL,T)THENC$(U)="NOT ENOUGH ROO 
M HERE. ": N=U :B0$="[ PURPLE] ":MC$="[ WHITE] 
":G0T02540 CB 

1860 G0SUB2580:IFX=-1THENRETURN IP 
1870 GOSUB2740:GOSUB279O:DL(CL,T)=C(I):D 
L(CL,H)=I(C(I)):I(C(I))=. HA 

1880 C$(U)=I$(C(I))+" DROPPED. ":N=U:BO$= 
"[WHITE]":PRINTD$I$(C(I)); IC 

1890 IFAR=C(I)THENAR=. EK 

1900 IFCU=C(I)THENCU=. FG 

1910 IFWE=C(I)THENWE=. DI 

1920 GOSUB2540:RETURN KE 

1930 G0SUB2630:ON-(N=. )GOTO253O:G0SUB274 
0:G0SUB2790:AR=C(I):RETURN OH 

1940 G0SUB2670:0N-(N=. )GOT02530:GOSUB274 
0:G0SUB2790:CU=C(I):RETURN HC 

1950 G0SUB2650:0N-(N=. )G0TO2530:G0SUB274 
: G0SUB2790 : WE=C( I ) : RETURN CO 

1960 IF(DL(CL,.)ANDF)=.THENC$(U)=M$(29): 
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B0$=" [RED] " : MC$=" [ YELLOW]" • N=U: GOT02540 MF 
■1970 IFI<19)=.THENC$(U)=M$(30)+I$(19)+"! 
,, :BO$= ,, [PURPLE3":MC$="[CYAN]":N=U:GOT025 
40 EN 

•1980 IFI(17)=.THENC$(U)=M$(30)+I$(17)+"! 
" :B0$="[ PURPLE ]":MC$="[c 4 ] " : N=U : G0T0254 
JD 

•1990 0N-(CLOWL)G0T02010;IFI(25)=.THENC$ 
(U)=M$(42) ;B0$="[ PURPLE]" :MG$="[ WHITE]": 
N=U:G0T02540 NC 

• 2000 PRINTCHR$( 147) : GOSUB3090: X=U: G0T013 
40 A A 

• 2010 DL=DL-U : CL=CL-1 28 : A=F : D=50 : J=T : GOSU 
B3070:GOT02060 KB 

•2020 IF(DL(CL,.)ANDT)=.THENC$(U)=M$(28): 
B0$="[ RED] ":MC$="[ YELLOW]" :N=U:GOT02540 EO 

•2030 IFI(19)=.THENC$(U)=M$(30)+I$(19)+"! 
";B0$=" [PURPLE] ";MC$="[ CYAN ]":N=U:GOT025 
40 JB 

•2040 IFI(17)=.THENC$(U)=M$(30)+I$(17)+"! 
" :B0$="[ PURPLE] M :MC$="[c 4]":N=U:G0T0254 
GH 

• 2050 DL=DL+U : CL=CL+128 : A=50 : D=F : J=-T : GOS 
UB3070 NO 

•2060 SS=144:SC=148:G0SUB2880:Z$=CZ$(DL): 

GOSUB610:GOSUB2890 PN 

•2070 GOSUB2710:G0SUB273O:GOSUB2740 FI 
•2080 C$(U)=M$(31+DL):30$="[c 4]":MC$="[W 

HITE]";N S U;AA=U:SS=152:SC=156:G0SUB2730 J A 
•2090 G0SUB2540: RETURN FN 

•2100 PRINTD$B$D$" [ YELLOW ][ RIGHT ]"I$(AR)T 

AB(1 7) M [RED]HP[ YELLOW] "STR$(INT(LF))TAB( 

39-LEN(I$(CU)))I$(CU); LH 

•2110 IFWETHENC$(U)=I$(WE):BO$="[c 6]":MC 

$=" [GREEN] ":N=U:AA=19:G0SUB2570 NC 
•2120 G0SUB2580:IFX=-UTHENG0SUB350: RETURN BP 
•2130 0NIGOTO214O, 2140, 2170, 2170 CN 
•2140 G0SUB2740:G0SUB2790:B0$="[WHITE]":C 

$(U)="THE "+I$(C(I))+" IS OF" EN 

•2150 C$(T)=M$(18+I(C(I)))+" WORKMANSHIP. 

":AA=K:N=T:LM=28:SM=20-LM/T FO 

•2160 GOSUB2740:G0SUB255O:GOSUB350: RETURN LC 
•2170 G0SUB2740:G0SUB2790:IFC(I)=16THEN22 

00 BF 

•2180 C$(U)="Y0U HAVE"+STR$(I(C(I)))+" "+ 

I$(C(I))+"." PC 

•2190 N=U :B0$=" [WHITE]" :GOSUB2540:GOSUB35 

0: RETURN GF 

•2200 C$(U)="UNR0LLING PARCHMENT[3"."]":N 

=U :B0$="[ YELLOW ]":MC$="[c 2]":GOSUB2560 NN 
•2210 X=DL*128:J=U:F0RA=.TQ127STEP16:C$(J 

")tB n "*FORD= TOG LP 

•222o'c$(J)=C$(J)+SM$(DL(X+A+D,.)ANDG):NE 

XT:C$(J+U)=C$(J):J=J+T FD 

•2230 NEXTsN^-UiBOI^'Jc 2]":MC$=CZ$(DL) : 

GOSUB254O:GOSUB350: RETURN PG 

•2240 IFCU=.THENC$(U)="YOU ARE EMPTY HAND 

ED.":N= s U:BO$a"[c 8]":MC$="[BLUE]":G0T025 
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40 OF 

•2250 IFCU<21THENC$(U)="N0THING HAPPENS." 
:N=U:BO$="[c 4]":MC$="[c 8]":G0T02540 MD 

•2260 C$(U)=M$(I5+(CU-21)):N=U:B0$="[YELL 
0W]":MC$="[c 3]":G0SUB2560 GO 

• 2270 IFCU=21ANDDL(CL+D(CD) , . )«KTHENDL(CL 
+D(CD) , . )=U HB 

•2280 J=DL(CL+D(CD) ,U) : IFCU=22AND(J=K0RJ= 
90RJ=13)THEN2380 FP 

•2290 IFCU=23THENCU=.:I(23)=,:I(24)=U IE 

•2300 IFCU=24THENI(25)=U:I(24)=. :CU=. ML 

•2310 GOSUB2550: RETURN BP 

•2320 IFI(18)=,THENC$(U)=M$(34):B0$="[c 7 
]":MC$= "[PURPLE ]":N=U:G0SUB2 5 40: RETURN NG 

•2330 I(18)=I(18)-U:LF=LF-M0:C$(U)="YOUR 
BODY IS FLOODED WITH STRENGTH" : N=U PF 

•2340 B0$="[c 7]":MC$="[WHITE] ,, :GOSUB2540 
: RETURN MC 

•2350 J=ABS(DL(CL+D(CD),U)):IFJ=.THENC$(U 
)=M$(35):MC$="[ YELLOW] ":N=U:GOSUB2540: RE 
TURN PF 

•2360 IFJ<50RJ=7THENC$(U)="THE IGNORANT B 
RUTE IS SILENT. ":N=U:BO$="[c 7]":G0T0254 
LG 

•2370 IFLF<B*100RJ>110RRND(U)<.8THEN2400 KA 

•2380 C$(U)=CHR$(34)+M$(14)+CHR$(34):C$(T 
)="MURMURS THE "+T$(J)+"." I J 

•2390 B0$="[ PURPLE] ":MC$="[ YELLOW] ":N=T:D 
L(CL+D(CD) ,U)=-J:G0SUB2540: RETURN DG 

•2400 X=(RNDCU)*F):C$(U)=CHR$(34}+"I'LL " 
+M$(6+X)+"!!"+CHR$(34) CE 

•2410 X^(RND<U)*F):C$(T)=M$(10+X)+" THE " 
+T$(J)+"." AN 

•2420 B0$="[ RED]" :MC$=" [WHITE]" :N=T;GOSUB 
2540-.RETURN IK 

•2430 A=. :FORFC=.TOH:EBM=FNCP( . ) :IFEBM<.0 
REBM>DETHEN2460 LK 

•2440 IF(DL(EBM,.)ANDB(7))=.THEN2460 DF 

•2450 DL(EBM,.)=DL(EBM,,)ANDG:G0SUB2510:F 
ORX= .T02000 : NEXT: GOS UB2880: A=A+U LM 

•2460 NEXT:IFA=.THENC$(U)="NO TRAPS AHEAD 
.":N=U:BO$=" [GREEN] ":MC$="[ WHITE]" :G0T02 
540 BF 

•2470 C$(U)="Y0U AVOID TRAPS .": N=U : B0$=" [ 
RED]" :MC$=" [ WHITE] ":G0T02540 IJ 

•2480 A=. :F0RD=UTOF:0NDGOSUB2630, 2650, 267 
0, 2690 : IFNTHENA=A+U : G0SUB2740 LC 

•2490 NEXT: IF ATHENGOSUB25 50: RETURN BC 
•2500 C$(U)="YOU ARE CARRYING NOTHING." :B 
0$="[c 7]":MC$="[WHITE]":N=U:G0T02540 LF 
•2510 C$(U)=M$(36+(RND(U)*6))+"! !":N=U:BO 
$=" [c 3]" :MC$="[ YELLOW]" :GOSUB2560: RETUR 
N CN 

•2520 C$(1)="YEA":C$(2)="NAY":N=2:AA=18:G 
0SUB2570:G0SUB2790: RETURN BB 

•2530 C$(U)="YOU HAVE NOTHING TO "+CM$(I) 
+"!":BO$="[PURPLE]":MC$="[WHITE]":N=U KG 
•2540 G0SUB2560:G0SUB2550: RETURN LI 



2550 JY-PEEK(JOY) ; J=FNJ(JY) :ON-(FNJF( , )) 
G0T02550:WAITJ0Y, 16, 16: RETURN BJ 

2560 AA=11-(N/T) PA 

2570 LM=LEN(C$(U))+F:SM=20-(LM/T) :G0SUB2 
740:RETURN PE 

2580 N=5:F0RX=UT0N:C$(X)=M$(X):C(X)=X:NE 
XT:AA=U:SM=ll:LM=18:B0$="[c 5]":MC$="[c 

5]" HG 

2590 G0SUB2740: G0SUB2790: IFI=5THENX=-U : R 

ETURN OK 

2600 0NIG0SUB2630, 2650, 2670, 2690 EB 
2610 IFN=.THENC$(U)="Y0U HAVE NO "+C$(I) 
+".*': N=U ; G0SUB2540 : X=-U : RETURN HG 
2620 X=U: RETURN GJ 

2630 N=. :F0KX=UT0K+U:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X JK 

2640 NEXT:AA=U:SM=T:LM=18:B0$="[c 2]":MC 
$="[c 3]": RETURN JC 

2650 N=. :F0RX=10T014:IFI(X)THENN=N+U:C$( 
N)=I$(X);C(N)=X MB 

2660 NEXT:AA=14:SM=U:LM=18:B0$="[c 6]":M 
C$="[ GREEN]": RETURN CD 

2670 N=. :FORX=15T024:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X CN 

2680 NEXT:AA=U:SM=21:LM=18:B0$="[c 4]":M 
(]«t_"r c 51": RETURN EP 

2690 N*=, :F0RX=25T030:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X BL 

2700 NEXT : AA=14 :SM=22:LM=1 7 :B0$="[ YELLOW 
]":MC$=" [PURPLE]": RETURN J J 

2710 N S 14:F0RX=UT0N:C$(X)=CM$(X):C(X)=X: 
NEXT:AA=T:SM=12:LM=16 AP 

2720 B0$="[BLUE]":MC$="[c 7]": RETURN LG 
2730 SYS901,CEM*256,CEM#256+SZ,SS*B(K):S 
YS901,CC,CC+SZ,SC*B(K):RETURN AB 

2740 PRINTCHR$(19);B0$; BH 

2750 F0RI=UT0AA: PRINT: NEXT: PRINTTAB(SM)L 
EFT$(MB$ , LM) : F0RI=UT0N+T AM 

2760 PRINTTAB(3M)"*"LEFT$(B$,LM-T)"*":NE 
XT:PRINTTAB(SM)LEFT$(MB$,LM) OM 

2770 PRINTCHR$(19);MC$"[D0WN]":FGRI=UT0A 
A: PRINT: NEXT IF 

2780 FORI=UTQN:PRINTTAB(SM+T); ,, [RVSOFF] ,, 
;C$(I)::NEXT:RETURN AH 

2790 JY=PEEK( JOY) : J=FNJ( JY) :QN-(FNJF( . ) ) 
G0T02790:PRINTCHR$(19) JE 

2800 F0RI=UT0AA: PRINT: NEXT: PRINT :I=U IF 
2810 PRINTTAB(SM+T);"[WHITE3 M ;C$(I) KF 
2820 JY=PEEK(J0Y) : J=FNJ(JY) :IFFNJF( .)THE 
NG0SUB3080: RETURN LK 

2830 IFJOUANDJOTTHEN2820 PC 

2840 PRINT"[UP]";TAB(SM+T);MC$;C$(I) EH 
2850 IF(J=T)ANDKNTHENI=T+U:G0T02810 NK 
2860 IFJ=UANDI>UTHENPRINT*'[UP][UP]"; :I=I 
-U:GOT02810 PF 

2870 PRINT"[UP]";:G0T02810 GL 

2880 SYS901,SS*B(K),SS*B(K)+SZ,CEM*256:S 
YS901,SC*B(K),SC*B(K)+SZ,CC: RETURN PK 



2890 POKE V+34 , LV ( DL , . ) : POKE V+35 , L V ( DL , 1 ) 
:P0KEV+36,LV(DL, 2) :Z$=CZ$(DL): RETURN FG 
2900 P0KE56333, 127 ;P0KE1, 51 :SYS901, 53248 
, 55296 , 61440: SYS901 , 53248 , 55296 , 63488 LK 
2910 POKEl,55:P0KE56333,129 FN 

2920 GOSUB2960 : F0RX= .TO 7 : READA : P0KE61440 
+87*8+X,A:NEXT NF 

2930 P0KE56578,PEEK(56578)0R3:P0KE56576, 
PEEK ( 56576) AND252 CK 

2940 POKE53272,(PEEK(53272)AND15):POKE64 
8,196:PRINTCHR$(147):P0KE648,192 KG 
2950 POKE53272,(PEEK(53272)AND240)OR12:R 
ETURN NG 

2960 READA : IFA=-1THENRETURN DM 

2970 F0RX=.T07 : READD: P0KE63488+A*8+X , D: N 
EXT:G0T02960 KE 

2980 PRINT" [ CLEAR ][RVSOFF] [WHITEjA H 

Y! MAGAZINE [c 4]PRESENTS[6"[ 
DOWN]"]" PO 

2990 PRINTTAB(7)"[BLUE]T M B[3" "]0 F[ 
3" "]H R R R[8"[D0WN]"]" CH 

3000 PRINTTAB(5)"[c 2][D0WN]THE ULTIMATE 

[WHITE]3-D [c 2]ADVENTURE GAME! [DOWN]" MM 
3010 PRINTTAB(ll)"[c 5] JOYSTICK [c 2] IN 
PORT TWO[DOWN]" PC 

3020 PRINTTAB(6)"(C)1988 [c 5] CLEVELAND 
M. BLAKEMORE[DOWN]":RETURN PF 

3030 G0SUB3130 : POKES+5 . K : P0KES+6 , 255 : POK 
ES+F , 23 : A=K : D=F : F0RX=UT030 : POKES+U , A DC 
3040 POKES+G , D : D=D*1 . 01 : A=A+U : NEXT : POKES 
+6 , G : G0SUB3050 : G0SUB350 : RETURN DD 
3050 G0SUB3130:P0KES+12,F:P0KES+19,F:P0K 
ES+13,241 MA 

3060 P0KES+2O,241:POKES+ll,17:POKES+18,l 
7 :G0SUB50: RETURN FL 

3070 FORX=ATODSTEPJ: SYSSR, , , 240, X , . , 17 , 1 
5: NEXT :G0SUB3050: RETURN JG 

3080 SYSSR,.,24O,34,75,17,5:GOSUB3050:RE 
TURN GB 

3090 A $="25 133142 1502421 502" :F0RX=UT0LEN 
(A$)STEPH HB 

3100 SYSSR,., 240, VAL(MID$(A$,X,T)) , . , 33, 
10*VAL(MID$(A$,X+T,U)):NEXT CO 

3110 G0SUB3050: RETURN EG 

3120 SYSSR,., 240, F,F, 129, F:G0SUB3050:RET 
URN HB 

3130 P0KES+24, . :F0RRV=.TO24:P0KES+RV, . :P 
OKES+24 , G : NEXT : RETURN DP 

3140 DATA32.253, 174,32, 138,173,32,247 AI 
3150 DATA183,132,193, 133, 194,32, 253,174 ' JF 
3160 DATA32, 138, 173,32,247, 183,132, 195 PC 
3170 DATA133,196,32,253,174,32,138,173 DB 
3180 DATA32, 247 ,183, 160,, 177, 193, 145 PP 
3190 DATA20, 165, 194, 197, 196, 208,6, 165 FA 
3200 DATA193,197,195,24O,15,230,20,2O8 LF 
3210 DATA2, 230, 21, 230, 193,208, 2, 230 ON 
3220 DATA194, 152, 240, 225,96, 234 IL 
3230 DATA162, 25, 181,217,9, 128,149,217,20 
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2,16,247,96 IN 

■3240 DATA32, 230, 2, 169, 15 ,141, 24, 212, 32, 2 

41,183,142,5,212,32,241,183,142 FD 
•3250 DATA6, 212, 32, 241, 183, 142, 1,212, 32, 2 

41, 183, 142,, 212, 32, 241, 183, 142 OE 
•3260 DATA4, 212, 32, 241, 183, 134, 2, 162, 10,1 

60,255,136,208,253,202,208,248,198 GL 
•3270 DATA2, 165, 2, 208, 240, 32, 230, 2, 96, 160 

,24, 169,, 153, 24, 212, 136, 208, 250, 96,0 OM 
•3280 DATAO,,,, 248, 240, 232, 216, 184 FK 
•3290 DATA28, 255, 165, 165, 165, 255, 165, 165, 

255 OM 

■3300 DATA30,31,31,31,31,31,31,31,31 FD 
•3310 DATA31, 248, 248, 248, 248, 248, 248, 248, 

248 OM 

•3320 DATA38,,,,31,15,23,27,29 EH 

•3330 DATA40,,128,192,224,240,248,252,254CA 
•3340 DATA41,,1,3,7,15,31,63,127 DC 

• 3350 DATA42 , 255 , , 255 , 255 , 255 , 255 , , 255 BG 
•3360 DATA43, 128,64,32, 16,8,4, 2,1 CI 

• 3370 DATA45 , , , , 255 , 255 , 255 , 255 , 255 HF 
•3380 DATA47,1,2,4,8,16,32,64,128 NE 
•3390 DATA60, 255, 254, 252, 248,240, 224, 192, 

128 BE 

•3400 DATA61,, ,,,,,, 255 CJ 

•3410 DATA62, 255, 127, 63, 31, 15, 7, 3, 1,-1 HA 
•3420 DATAO, 60, 126 ,126, 78, 78, 60,. GB 

• 3430 DATA .,,,,,,,»,,,,,,,. PA 
•3440 DATA . ,4,1,1,1,1,1,1, ,1,1, ,1,1,1, - ML 
•3450 DATA . ,1, ,1, ,1, ,1,1,1, ,,, ,1, . PN 
•3460 DATA . ,1, ,1,1, ,1, , ,1,1, ,1,1,1, . KK 
•3470 DATA ., 1,1, 1, , 1,1,1, , 1, , ,1, ,1, . IG 
•3480 DATA .,, ,1, ,1, ,1, ,1,1,1,1,1,1, . KM 
•3490 DATA . ,1,1,1,1,1, ,1,2, ,1, ,1, ,1, • 00 
•3500 DATA .,,»>,,,,,», ■*,,., ,,. DO 

• 3510 DATA .,,,,,,,,,,»»,,,. GA 
•3520 DATA . ,2,1,1, ,1,1,1,1,1, ,1,1,1,1, , PJ 
•3530 DATA .,, ,1, ,1, ,1, ,1,1,1 ,, ,1, . GB 
•3540 DATA . ,1,1,1, ,1,1 ,1,1,1, ,1,1 ,1,1, . JE 
•3550 DATA . , , ,1, ,1, ,1, ,1, ,1, ,1, , . JF 
•3560 DATA . ,1,1,1,1,1, ,1, ,1,1,1, ,1,1, . PD 
•3570 DATA . , 1, , , 1 , , 1 , 1 , 1 , 1 , , 1 , , , 2, . FJ 
•3580 DATA .,,,,,,,,,,,,,,,. KO 

•3590 DATA ,„„„,,. JN 

•3600 DATA . ,4, 1,8,1,1,1, ,1, ,1,1,8,1 ,1, , KM 
•3610 DATA .,1,,1,,,1,,1,,1,,8,,1,. PL 
•3620 DATA . ,1, ,1, , ,1,1,1, ,8, ,1, ,1, . MO 
•3630 DATA . ,8,1, 1,8,1,1, ,1,1, 1, ,1,1,1, . DB 
•3640 DATA . ,1, ,1, , ,1,1, ,1, , ,1, ,1, . IA 
•3650 DATA . ,1, ,8,1,1,1, , ,1,1,1,1, ,4, , AC 
•3660 DATA .,,,,,,,,,,,,,,,. NL 

•3670 DATA160, 194,160,152,137, 110, 185,110 

,170,170,170,129,172,150,172,160 HI 
•3680 DATASTIRGES, GIANT SPIDER,C0NSTRICTO 

R, GRAVE RAT,DROW ELF , HOBGOBLIN , FUNGUS OP 
•3690 DATALICH PALADIN, SPECTER, REVEN ANT, W 

YVERN, GUARDIAN NAGA, DEMON KING I J 
•3700 DATA 1,1,2,2,3,3,4,4,5,6,6,7,7,8,8, 
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9,10,10,10,10,11,11,11,12,13 KH 

3710 DATA 0,, 5, 9, 11, 2, 5,, 13, 11, 1,5,0 PF 

3720 DATA 18,18,17,2,15,21,19,18,16,3,6, 
11,18,4,5,22,8,12,7,13,14,20,18,9,23 MC 

3730 data It ()v , ov"v lI v I +. I, /'+,","* 

if iisfcir ii /it ii /ti n_n tl_it -pi- 

3740 DATA , n2V'12 , V , 0V'0'V , 4687 , V»45", 
"3" "3" "<=>'?" "••" "Q" "Q" OE 

3750 DATA DAGGER, HAND AXE, LANCE, MORNING 
STAR, SCIMITAR, BROADSWORD LK 

3760 DATA WAR HAMMER, DRAGONS L A YER.EXCALI 
BUR, BUCKLER, LEATHER JERKIN, CH A INM AIL DD 
3770 DAT AI RON PLATE, MITHRIL PLATE.COMPAS 
S, SCROLL, STEEL HOOK, PINTS OF ELIXIR A J 
3780 DATA COIL OF ROPE, BLACK CLOAK, MITHR 
IL RING, HOLY SYMBOL, LUMP OF COAL MC 
3790 DATA LUMP OF IRON, ALCHEMY STONE, GEM 
S, JEWELS, GOLD, SILVER, RARE SPICES JJ 
3800 DATA TAKE, DROP, LEFT HAND, RIGHT HAND 
, ARMOR , ASCEND , DESCEND , EXAMINE , INCANT PB 
3810 DATA QUAFF, HAIL, SEARCH, INVENTORY, EX 
IT MENU ON 

3820 DATA 15,12,11,3,14,6,10,8,9 HN 
3830 DATA WEAPON, ARMOR, SPECIFIC ITEM,TRE 
ASURE,EXIT MENU, KNOCK YOU SILLY BH 
3840 DATA BASH YOUR BRAINS IN, GRIND YOU 
TO DOGMEAT.TEAR YOU TO RIBBONS KC 
3850 DATA GROWLS, BELLOWS, BARKS, ROARS, "PA 
SS BY, KNIGHT ERRANT" NM 

3860 DATA A SPRAY OF WHITE LIGHT, A CHORU 
S OF ANGELIC VOICES OK 

3870 DATA IT TRANSFORMS IN YOUR HAND!, A 
BLAST OF SPARKS.. CHECK INVENTORY AN 
3880 DATA COMMON, GOOD, EXCELLENT, PRECIOUS 
, GLITTERING , FABULOUS , CACHE , CHEST , CRATE KO 
3890 DATA NO SHAFT LEADING DOWN HERE, NO 
SHAFT LEADING UP HERE JG 

3900 DATA" YOU DON'T HAVE THE ",THE CATAC 
OMBS.THE SEPULCHRE LD 

3910 DATA THE BARROW, YOU' RE OUT OF HEALI 
NG ELIXIR, YOUR VOICE ECHOES EMPTILY CP 
3920 DATA POISON DARTS, TRIPWIRE, BEAR TRA 
P, SPIKED PITFALL, TRAPDOOR, SNARE NOOSE HK 
3930 DATA YOU DO NOT HAVE THE ALCHEMY ST 
ONE!,T HOU ART SLAIN! HF 
3940 DATATHOU HAST CONQUERED THE TOMB! BI 
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Starting address in hex: C800 
Ending address in hex: CFFF 

Flankspeed required for entry! See page 63. 



C800 
C808 
C810 
C818 
C820 
C828 



08 40 00 1C EO 00 23 10 78 
00 04 82 10 00 07 38 00 DD 
08 C4 00 01 20 00 00 00 FD 
00 00 00 01 08 00 03 9C CO 
00 04 62 00 00 90 00 00 17 
00 00 00 00 84 00 01 CE 7C 



C830: 


21 


02 


31 


73 


80 


48 


8C 


40 


8D 


CAOO: 


F8 


44 


IE 


CB 


BB 


8E 


63 


FF D4 


C838: 


00 


12 


00 


00 


00 


00 


00 


00 


4A 


CA08: 


9F 


3B 


FF 


86 


03 


FF 


86 


03 F5 


C840; 


00 


00 


00 


00 


00 


00 


00 


00 


40 


CA10: 


FF 


86 


03 


FF 


86 


03 


FF 


86 A9 


C84 8: 


00 


00 


00 


00 


00 


00 


00 


00 


48 


CA18: 


03 


FF 


86 


03 


FF 


86 


03 


FF 2E 


C850: 


00 


00 


00 


00 


00 


02 


00 


40 


92 


CA20: 


86 


03 


FF 


86 


03 


FF 


82 


03 B8 


C858: 


25 


3C 


A4 


54 


FF 


2A 


8D 


FF 


6A 


CA28: 


FF 


80 


03 


FF 


80 


07 


FF 


CO F3 


C860: 


Bl 


97 


FF 


El 


9B 


FF 


Dl 


FF 


F8 


CA30: 


07 


FF 


CO 


OF 


FF 


EO 


IF 


FF 07 


C868: 


FF 


FF 


DB 


DD 


D3 


D8 


FF 


93 


62 


CA38: 


FO 


7D 


FF 


78 


FO 


E6 


IF 


FF 16 


C870: 


48 


CI 


92 


48 


41 


12 


44 


22 


OF 


CA40: 


00 


10 


00 


00 


10 


00 


00 


92 F2 


C878: 


22 


40 


00 


02 


20 


00 


04 


00 


01 


CA48: 


00 


00 


BA 


00 


00 


BA 


00 


00 BD 


C880: 


00 


00 


00 


00 


00 


00 


00 


00 


80 


CA50: 


FE 


00 


00 


92 


00 


00 


D6 


00 B8 


C888: 


00 


00 


F8 


00 


01 


FC 


00 


02 


81 


CA58: 


00 


EE 


00 


01 


EF 


00 


OE 


EE 35 


C890: 


AA 


00 


02 


72 


00 


02 


02 


00 


B3 


CA60: 


CO 


IF 


7D 


FO 


3F 


AB 


F8 


3F Dl 


C898: 


01 


04 


00 


00 


88 


00 


00 


70 


96 


CA6S: 


D7 


FC 


7F 


D7 


FC 


7F 


EF 


FC FD 


C8A0: 


20 


00 


70 


40 


00 


70 


40 


00 


22 


CA70: 


F7 


FF 


DC 


F3 


FF 


9E 


F3 


FF CB 


C8A8: 


70 


60 


00 


78 


30 


00 


3C 


1C 


7A 


CA78: 


9E 


E3 


BB 


8E 


E3 


C7 


8E 


00 7F 


C8B0: 


00 


IE 


OE 


00 


3C 


3C 


00 


78 


CD 


CA80: 


00 


78 


00 


00 


84 


00 


01 


4A C8 


C8B8: 


F0 


00 


3F 


EO 


00 


IF 


CO 


00 


A9 


CA88: 


10 


01 


02 


28 


03 


87 


28 


05 7B 


C8C0: 


00 


00 


00 


38 


FF 


00 


43 


FF 


3C 


CA90: 


86 


90 


OE 


CD 


90 


IF 


7B 


DO 7F 


C8C8: 


CO 


37 


FF 


EO 


OF 


FF 


FO 


OF 


BO 


CA98: 


3D 


B7 


F8 


3D 


CF 


E4 


29 


B7 59 


C8D0: 


FF 


FO 


OF 


FF 


FO 


OE 


FF 


BO 


80 


CAAO: 


64 


29 


CF 


2C 


29 


FF 


38 


1A A5 


C8D8: 


OE 


7F 


30 


IE 


BE 


B8 


3E 


DD 


48 


CAA8: 


01 


18 


03 


CF 


00 


03 


B7 


00 4F 


C8E0: 


BC 


7F 


6B 


7E 


FC 


FF 


9F 


78 


1C 


CABO: 


07 


CF 


00 


05 


7A 


80 


OB 


EF 82 


C8E8: 


DD 


8F 


78 


49 


07 


38 


7F 


03 


D9 


CABS: 


80 


OD 


7B 


40 


OD 


56 


CO 


DC 03 


C8F0: 


18 


5D 


03 


OC 


08 


IE 


IE 


00 


B9 


CACO: 


03 


E7 


CO 


07 


DB 


EO 


07 


BD F4 


C8F8: 


2F 


35 


00 


OA 


55 


00 


14 


00 


DO 


CAC8: 


EO 


OF 


DB 


EO 


OF 


E7 


FO 


OF 6C 


C900: 


04 


00 


40 


OC 


7C 


60 


12 


BA 


F9 


CADO: 


FF 


FO 


OF 


FF 


FO 


OF 


FF 


FO CI 


C908: 


90 


11 


93 


10 


09 


FF 


20 


07 


7D 


CADS: 


OF 


FF 


FO 


OF 


FF 


FO 


OF 


FF E7 


C910; 


BB 


CO 


01 


C7 


00 


IF 


7D 


EO 


D2 


CAEO: 


FO 


OF 


FF 


FO 


IF 


FF 


F8 


IF 09 


C918: 


3F 


83 


FO 


F3 


FF 


7C 


Al 


7 A 


58 


CAE8: 


FF 


F8 


IF 


7F 


D8 


3D 


EF 


7C 03 


C920: 


IE 


CO 


FC 


05 


C3 


FE 


03 


C7 


8E 


CAFO: 


2F 


BF 


EC 


3A 


FA 


AC 


2D 


95 71 


C928: 


CF 


03 


CE 


03 


83 


CE 


01 


C6 


E6 


CAF8: 


F6 


5F 


56 


AE 


A4 


DD 


CA 


66 08 


C930: 


F7 


01 


EE 


E3 


87 


FC 


Dl 


E6 


39 


CBOO: 


00 


F8 


00 


01 


04 


00 


02 


02 02 


C938: 


5C 


68 


67 


6A 


13 


EO 


10 


04 


D6 


CB08: 


00 


02 


8A 


00 


02 


02 


00 


02 9A 


C940: 


34 


42 


OF 


18 


66 


IF 


2C 


5A 


E9 


CB10: 


02 


00 


02 


03 


06 


03 


07 


09 30 


C948: 


21 


06 


66 


01 


03 


5A 


01 


07 


3C 


CB18: 


03 


8F 


09 


03 


DF 


09 


OD 


FE AB 


C950: 


BD 


E3 


OB 


DB 


D3 


15 


E7 


AF 


59 


CB20: 


C6 


IE 


FD 


E6 


3F 


7B 


F6 


7F IB 


C958: 


2E 


E7 


77 


59 


7E 


BD 


71 


DB 


C8 


CB28: 


B7 


FF 


BF 


CF 


F7 


DF 


B7 


FA F9 


C960: 


99 


60 


A5 


01 


71 


99 


81 


6B 


F8 


CB30: 


9F 


CF 


F2 


9F 


FF 


F2 


97 


FF BC 


C968: 


7E 


CI 


66 


C3 


61 


25 


81 


Al 


7C 


CB38: 


D2 


67 


FF 


CC 


02 


00 


40 


E7 69 


C970: 


OF 


00 


Fl 


OF 


00 


Fl 


OA 


00 


7C 


CB40: 


00 


3C 


00 


00 


7E 


02 


00 


42 3F 


C978: 


51 


OE 


00 


71 


3A 


00 


5C 


DC 


BC 


CB48: 


02 


00 


66 


02 


00 


66 


02 


3D 58 


C980: 


00 


78 


OC 


70 


FC 


12 


89 


FE 


OD 


CB50: 


BD 


82 


67 


BD 


C2 


77 


FF 


E2 D2 


C988: 


31 


CI 


FF 


64 


63 


Fl 


C2 


32 


2A 


CB58: 


43 


DB 


E2 


5A 


FF 


77 


7E 


66 11 


C990: 


64 


C6 


64 


2A 


6C 


CC 


AA 


66 


94 


CB60: 


3F 


7E 


5A 


IE 


3C 


FF 


00 


01 D3 


C998: 


DC 


24 


E3 


7E 


71 


E3 


3F 


FF 


90 


CB68: 


7E 


80 


03 


FF 


CO 


07 


81 


EO 94 


C9A0; 


E6 


3E 


BA 


FC 


1C 


82 


7A 


58 


EE 


CB70: 


OF 


00 


FO 


OE 


00 


70 


OE 


00 FC 


C9A8: 


00 


31 


8C 


44 


79 


87 


45 


FB 


EC 


CB78: 


70 


OE 


00 


70 


3E 


00 


7C 


IE 40 


C9B0: 


CF 


FF 


FE 


7F 


FF 


FE 


3F 


FF 


3D 


CB80: 


F9 


BD 


8F 


70 


FF 


06 


01 


FF 3F 


C9B8: 


FE 


7F 


FF 


FF 


FF 


FF 


FF 


04 


3B 


CB88: 


80 


01 


FF 


80 


01 


FF 


80 


03 OF 


C9C0: 


00 


10 


00 


00 


54 


00 


00 


7C 


Al 


CB90: 


7E 


CO 


06 


FF 


60 


OF 


FF 


FO 36 


C9C8: 


00 


00 


54 


00 


00 


6C 


00 


00 


89 


CB98: 


IF 


FF 


F8 


IF 


81 


F8 


IF 


00 69 


C9D0: 


6C 


00 


01 


7D 


00 


03 


AB 


80 


EA 


CBAO: 


F8 


IE 


00 


78 


IE 


00 


78 


IE E4 


C9D8: 


7 


D7 


CO 


OF 


EF 


EO 


OD 


FF 


65 


CBA8: 


00 


78 


IE 


00 


78 


IE 


00 


78 4E 


C9E0: 


60 


OC 


FE 


30 


OE 


D6 


78 


OC 


E5 


CBBO: 


IE 


00 


78 


IE 


00 


78 


IE 


00 FB 


C9E8: 


6C 


10 


06 


D6 


10 


00 


FE 


10 


61 


CBB8: 


78 


3E 


00 


7C 


FE 


00 


7F 


FE 69 


C9F0: 


00 


FE 


10 


00 


FE 


10 


00 


FE 


OE 


CBCO: 


00 


00 


00 


00 


00 


00 


00 


00 CO 


C9F8: 


10 


01 


FF 


00 


07 


FF 


CO 


06 


D7 


CBC8: 


00 


00 


7E 


00 


00 


FF 


00 


00 4 7 




































AHOYl 79 



CBDO: 


81 


00 


00 


81 


02 


00 


E7 


02 


BF 


CDAO: 


40 


02 


DB 


40 


03 


BD 


CO 


03 


83 


CBD8: 


00 


E7 


02 


00 


E7 


02 


73 


7E 


9E 


CDA8: 


DB 


CO 


02 


BD 


40 


03 


DB 


CO 


E4 


CBEO: 


C2 


FF 


7E 


E2 


8D 


7E 


E2 


CF 


C3 


CDBO: 


02 


BD 


40 


02 


DB 


40 


03 


E7 


B9 


CBE8: 


7E 


F2 


85 


FF 


F2 


B7 


BD 


FA 


43 


CDB8: 


CO 


03 


FF 


CO 


03 


FF 


CO 


01 


02 


CBFO: 


B5 


BD 


FA 


B7 


FF 


FA 


FD 


FF 


10 


CDCO: 


7F 


00 


00 


FE 


80 


00 


FB 


40 


FB 


CBF8: 


FA 


FD 


E7 


BA 


FD 


81 


BF 


F8 


CC 


CDC8: 


00 


F3 


20 


00 


E6 


DO 


00 


FD 


92 


CCOO: 


10 


BO 


10 


39 


6E 


38 


38 


F9 


E2 


CDDO: 


A8 


00 


EB 


D4 


00 


FB 


EA 


00 


21 


CCO 8: 


38 


38 


FO 


78 


3C 


F8 


78 


36 


C5 


CDD8: 


07 


EA 


00 


CF 


EA 


00 


DF 


DA 


40 


CCIO: 


76 


58 


3B 


38 


B8 


3D 


FF 


78 


CO 


CDEO; 


00 


FF 


B4 


00 


FF 


68 


00 


00 


FD 


CC18: 


3D 


7F 


B8 


3D 


B7 


18 


3A 


CB 


AO 


CDE8: 


DO 


00 


FD 


AO 


00 


03 


40 


00 


9B 


CC20: 


38 


19 


77 


D8 


08 


8F 


10 


00 


69 


CDFO: 


FC 


80 


00 


FB 


00 


00 


FA 


00 


65 


CC28: 


FF 


00 


82 


BD 


40 


47 


C3 


CO 


74 


CDF8: 


00 


D4 


00 


00 


D4 


00 


00 


DC 


7F 


CC30: 


4F 


BD 


CO 


9B 


C3 


CO 


B3 


3C 


OE 


CEOO: 


00 


00 


FE 


00 


01 


7F 


00 


02 


81 


CC38: 


CO 


67 


81 


EO 


OA 


81 


50 


00 


9E 


CEO 8: 


DF 


00 


04 


CF 


00 


OB 


67 


00 


2E 


CC40: 


77 


FF 


F7 


33 


FF 


E6 


12 


FF 


DB 


CE10: 


15 


BF 


00 


2B 


D7 


00 


57 


DF 


IF 


CC48: 


AC 


01 


7F 


40 


01 


7F 


40 


01 


77 


CE18: 


00 


57 


EO 


00 


57 


F3 


00 


5B 


F6 


CC50: 


36 


40 


01 


41 


40 


03 


77 


60 


24 


CE20: 


FB 


00 


2D 


FF 


00 


16 


FF 


00 


5F 


CC58: 


03 


7F 


60 


47 


36 


70 


2B 


41 


95 


CE28: 


OB 


00 


00 


05 


BF 


00 


02 


CO 


BA 


CC60; 


6C 


4D 


77 


5E 


9D 


7F 


7E 


9D 


29 


CE30: 


00 


01 


3F 


00 


00 


DF 


00 


00 


50 


CC68: 


36 


5E 


9D 


41 


5C 


AD 


77 


5C 


B9 


CE38: 


5F 


00 


00 


2B 


00 


00 


2B 


DC 


CA 


CC70: 


AD 


7F 


6C 


AD 


80 


DC 


F6 


FF 


OC 


CE40: 


1C 


00 


70 


3E 


00 


F8 


3F 


6D 


BO 


CC78: 


90 


CF 


00 


3C 


14 


80 


4A 


00 


F3 


CE48: 


F8 


3F 


C7 


F8 


3F 


FF 


F8 


3B 


B4 


CC80: 


03 


7C 


00 


09 


E7 


EO 


27 


FF 


F8 


CE50: 


BB 


B8 


31 


93 


18 


23 


6D 


C8 


FA 


CC88: 


C4 


73 


F9 


4E 


F3 


D8 


IF 


F3 


E8 


CE58; 


07 


A9 


EO 


OD 


BA 


EO 


OC 


C2 


61 


CC90: 


DC 


IF 


F9 


ED 


IF 


FC 


F7 


9F 


28 


CE60: 


60 


OE 


7D 


CO 


07 


FA 


80 


01 


90 


CC98: 


FE 


70 


37 


F7 


78 


6F 


FB 


BE 


D9 


CE68; 


BA 


80 


00 


FD 


40 


00 


EE 


00 


DO 


CCAO: 


DF 


FD 


FF 


BF 


F6 


FF 


7F 


EF 


A4 


CE70: 


01 


C7 


00 


01 


C3 


80 


00 


C3 


42 


CCA8: 


FF 


DF 


EE 


FB 


E3 


EE 


F7 


6D 


AB 


CE78: 


80 


00 


C3 


00 


03 


42 


CO 


00 


C2 


CCBO: 


EE 


70 


65 


ED 


86 


A9 


EF 


FC 


80 


CE80: 


E3 


FF 


DE 


El 


F5 


C6 


CI 


FA 


9E 


CCB8: 


6D 


E7 


81 


EF 


F8 


3F 


EF 


FO 


98 


CE88: 


FF 


BA 


F5 


C7 


7F 


75 


41 


05 


3C 


CCCO: 


00 


FC 


00 


01 


7A 


00 


03 


B7 


F3 


CE90: 


BA 


CO 


04 


BF 


CO 


09 


7F 


FO 


OA 


CCC8: 


00 


03 


CF 


00 


01 


FE 


00 


00 


9B 


CE98: 


00 


FO 


FO 


01 


EO 


70 


03 


CO 


90 


CCDO: 


FC 


00 


00 


78 


00 


00 


78 


00 


BE 


CEAO: 


FO 


03 


CO 


FO 


03 


CO 


EO 


01 


EB 


CCD8: 


00 


78 


00 


00 


78 


00 


00 


78 


42 


CEA8: 


CI 


CO 


01 


C3 


80 


01 


C3 


80 


B5 


CCEO 


00 


00 


78 


00 


00 


78 


40 


00 


12 


CEBO: 


01 


C3 


80 


03 


CI 


CO 


03 


CI 


40 


CCE8: 


78 


20 


00 


78 


20 


00 


FC 


60 


77 


CEB8: 


EO 


07 


CI 


FO 


ID 


22 


5C 


00 


EE 


CCFO 


01 


FF 


CO 


OF 


00 


EO 


IF 


FF 


CI 


CECO: 


60 


00 


1C 


FO 


00 


IE 


F8 


00 


45 


CCF8 


, FO 


18 


03 


FO 


OF 


FF 


EO 


DD 


C3 


CEC8: 


3F 


F8 


00 


3F 


FC 


C6 


7F 


EE 


72 


CDOfj 


: 03 


BD 


CO 


03 


DB 


CO 


02 


BD 


EO 


CEDO- 


83 


7F 


ED 


83 


AF 


ED 


C3 


AF 


56 


CD08 


: 42 


02 


DB 


44 


03 


BD 


C6 


03 


F6 


CED8- 


ED 


FF 


AF 


EF 


7E 


EF 


F7 


3C 


09 


CD 10 


: DB 


C3 


03 


BD 


C3 


02 


DB 


C7 


D9 


CEEO 


: DF 


73 


99 


8E 


22 


FF 


44 


OC 


CE 


CD18- 


: 05 


E7 


CF 


OB 


FF 


CE 


17 


FF 


C5 


CEE8- 


EB 


30 


IF 


6B 


78 


7F 


BE 


F8 


3F 


CD20 


t DC 


2F 


FF 


DC 


5F 


FF 


DC 


5F 


A4 


CEFO 


: 77 


DD 


F8 


E5 


E3 


B8 


C2 


FF 


84 


CD28 


: FF 


BE 


7F 


FF 


7E 


7F 


FE 


FE 


62- 


CEF8 


: 5C 


C3 


18 


CE 


El 


FF 


8E 


00 


70 


CD 30 


: 7F 


FE 


FE 


7F 


FE 


FE 


3F 


FF 


6A 


CFOO 


: OF 


FO 


FE 


OF 


EO 


FE 


OF 


CO 


BD 


CD38 


: 7C 


IF 


FF 


F8 


07 


FF 


FO 


1C 


EO 


CF08 


: 7E 


OF 


CO 


7E 


IF 


80 


3E 


IF 


Dl 


CD40 


: 07 


E7 


EO 


OB 


7E 


DO 


15 


3C 


BB 


CF10 


: 00 


3E 


IF 


00 


7E 


IF 


00 


FC 


08 


CD48 


: A8 


2E 


FF 


74 


5F 


7E 


FA 


5F 


CB 


CF18 


: 3F 


00 


F8 


3F 


01 


F8 


3F 


01 


C9 


CD 50 


: 81 


FA 


5F 


BD 


FA 


2F 


FF 


F4 


09 


CF20 


: FO 


IF 


01 


FO 


IF 


03 


EO 


OF 


34 


CD58 


: 14 


FF 


28 


OB 


00 


DO 


04 


FF 


74 


CF28 


: 03 


EO 


OF 


47 


CO 


07 


87 


CO 


72 


CD60 


: 20 


03 


81 


CO 


02 


E7 


40 


03 


F2 


CF30 


: 03 


87 


CO 


03 


87 


80 


07 


87 


15 


CD68 


: 99 


CO 


03 


DB 


CO 


02 


BD 


40 


62 


CF38 


: CO 


OA 


C7 


60 


14 


8A 


90 


FC 


57 


CD70 


: 02 


DB 


40 


03 


BD 


CO 


02 


DB 


ED 


CF40 


: 7F 


BF 


7E 


FB 


CO 


EF 


FB 


F7 


9E 


CD78 


: 40 


02 


BD 


40 


03 


DB 


CO 


00 


58 


CF48 


: EF 


FB 


F7 


EF 


FD 


FF 


EF 


F6 


01 


CD 80 


: 03 


FF 


CO 


03 


FF 


CO 


03 


DB 


E6 


CF50 


: OC 


IF 


F7 


FF 


EF 


F3 


FC 


6F 


C3 


CD88 


: CO 


03 


BD 


CO 


02 


DB 


40 


02 


EA 


CF58 


: FO 


7B 


AF 


E3 


B7 


E7 


EF 


D7 


BF 


CD90 


: BD 


40 


03 


DB 


CO 


03 


BD 


CO 


AF 


CF60 


: 37 


FF 


B5 


3F 


FC 


B4 


9F 


79 


57 


CD98 


: 03 


DB 


CO 


03 


DB 


CO 


02 


BD 


97 


CF6S 


: 5A 


EF 


31 


39 


EO 


01 


FF 


EO 


DF 


80 AM 


m 







































CF70: 


03 


FF 


EO 


03 


FF 


FO 


03 


FF 


4B 


CFB8: 


3D 


38 


3F 


DD 


10 


IF 


EF 


FC 


67 


CF78: 


F8 


07 


El 


FC 


OF 


EO 


FE 


FC 


43 


CFCO: 


00 


01 


EO 


00 


07 


FO 


OC 


OF 


B5 


CF80: 


07 


80 


00 


OF 


EO 


00 


IF 


FO 


08 


CFC8: 


F8 


07 


OF 


FC 


03 


9F 


FE 


03 


79 


CF88: 


30 


3F 


FO 


EO 


7F 


F9 


CO 


FF 


04 


CFDO: 


BF 


FF 


03 


BF 


FF 


F7 


BB 


FF 


07 


CF90: 


FD 


CO 


FF 


FD 


CO 


FF 


DD 


EF 


DB 


CFD8: 


FF 


BB 


FF 


FF 


7B 


FF 


FD 


7D 


8B 


CF98: 


FF 


DD 


FF 


FF 


DE 


FF 


FF 


BE 


14 


CFEO: 


FF 


F9 


BD 


FF 


Fl 


DD 


FF 


C3 


2C 


CFAO: 


BF 


FF 


BD 


9F 


FF 


BB 


8F 


FF 


09 


CFE8: 


DD 


FF 


FF 


D3 


FF 


FF 


C9 


FF 


64 


CFA8: 


BB 


C3 


FF 


CB 


FF 


FF 


93 


FF 


87 


CFFO: 


FF 


D8 


FF 


FF 


A8 


7F 


BC 


7C 


2B 


CFBO: 


FF 


IB 


FF 


FE 


15 


FF 


7C 


3E 


9A 


CFF8: 


3E 


BB 


FC 


1C 


F7 


F8 


08 


FC 


02 



SCUTTLiBUTT 

Continued from page 12 

plus free shipping. 

P.A.V.Y. Software, 314-527-4505 (see 
address list, page 12). 

Al TYPING TUTOR 

Mavis Beacon Teaches Typing by use 
of artificial intelligence, checking the 
student's progress every step of the way 
and tailoring an individualized course 
of study. Mistakes are explained in con- 
versational sentences, rather than by 
bleeps and bells. Customized practice 
lessons include literary quotes, riddles, 
and facts from the Guinness Book of 
World Records. Other features are a 
Road Racer typing game, and musical 
"tempo typing" with onscreen metro- 
nome. Over 20 different graphs display 
the student's progress. $39.95 for the 
C-64; $44.95 for the Amiga. 
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A practice screen from Mavis Beacon. 
READER SERVICE NO. 178 

The Software Toolworks, 818-907- 
6789 (see address list, page 12). 

UNSILENCED 

MicroProse's Silent Service is again 
on sale in West Germany after a gov- 
ernment agency in Bonn rescinded a 
14-month old prohibition. The WWII 
submarine simulation had been judged 



potentially harmful to youth. But Mi- 
croProse called into question the agen- 
cy's criteria for determining the prod- 
uct harmful , and contended that ban- 
ning sales to youth effectively banned 
sales to adults too, since the product 
could under those circumstances not be 
advertised, or sold except in stores with 
adults-only entrances. The ban was 
lifted less than 24 hours before a sched- 
uled hearing. 

With the matter settled, there's little 
need for editorializing -but we applaud 
the West German government for over- 
turning its earlier decision. The events 
of 50 years ago are understandably not 
a source of national pride for modern- 
day Germans. But there's more to be 
gained by studying and understanding 
the past than by attempting to strike it 
from the record. 

MicroProse, 301-771-1151 (see address 
list, page 12). 



Continued from page 56 

tern that would not require a customer 
to wait while you swapped disks and 
entered most information twice. 

With those caveats, we'll go on to say 
that the documentation, though slight, 
is adequate, and that most people 
should find the system easy to use. 
Much of this is due to onscreen 
prompts and messages that will lead 
you through each step of the transac- 
tion, many of them highlighted by 
flashing graphics that arc designed to 
recapture wandering attention spans. 

System requirements for using 77- 
SAR /28-with no deviations tolerated 
-arc a C-I28 or C-128D, a 1571 drive, 
and an 80-column monitor with color 
preferred. All disks in the system are 
copyable so that you can keep originals 
in a safe place, and each program has 
a "disk-doctor" to help retrieve infor- 
mation lost due to accidents, 

CW Data Labs, 1632 Napfle Avenue, 



Philadelphia, PA 19111. -Ervin Bobo 

WARPSPEED! 

CinemaWdre 
Commodore 64/128 
Cartridge; $49.95 

The Commodore 64/128 has many 
virtues. Processing speed is not among 
them. Once, a computer magazine even 
printed a list of things for Commodore 
users to do while waiting for a program 
to load from disk. 

Several manufacturers have attemp- 
ted to address this annoying shortcom- 
ing with "speed up" cartridges. Mach-5 
and Mach-128 (Access) and Fast Load 
(Epyx) are probably the best known. 

Now Cinemaware has entered the 
field with what may prove to be the 
most powerful and versatile accelera- 
tor cart on the market. Though the 
company earned its reputation with en- 
tertainment products like Defender of 
the Crown and King of Chicago, skep- 
tics will quickly become converts once 
they try this amazing booster box - . 



Like all existing accelerator units, 
y%rpspeed! plugs into the Commo- 
dore's cartridge slot. It has a mode 
switch to select either 64 or 128 and 
a recessed reset button. 

Warpspeed! conveniently supports 
the Fast Load command structure, in- 
cluding the two-key (RUN STOP and 
COMMODORE) combination, which 
eliminates typing information to load 
a program. It loads, saves, and formats 
disks up to 10 times faster than nor- 
mal. A few disks, like the Quantum- 
Link terminal program, won't load with 
Warpspeed!, but most do. 

The copy features of this menu-driv- 
en cartridge are even more impressive. 
It duplicates disks and files up to 40 
times faster. The user can even pick 
several files from the same disk and 
copy or scratch them in one operation. 

Warpspeed! supports both double- 
and single-sided drives, including the 
1581 and MSD units. It copies files be- 
tween single- and double-sided disks 
and enables the 1571 to function in dou- 
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ble-sided mode on the C-64. 

Cinemaware's cartridge is also 
packed with goodies for programmers 
and "serious* users. Wirpspeed! boasts 
its own mini-assembler and built-in 
machine language monitor. These func- 
tions, which work in disk drive mem- 
ory, include the ability to "smart move" 
code up and down in RAM. The cart- 
ridge allows relocated loads and saves, 
verifies disk files from inside the mon- 
itor, can redirect output to the printer. 



loads/saves disassembles under ROMs 
and I/O (SdOOO), and incorporates an 
extended DOS wedge. 

The machine language monitor and 
mini-assembler interface with the sec- 
tor editor also contained in Wtirpspeed!. 
It edits in hex or normal ASCII text 
and traces directory and file track and 
sector links. 

That may sound like a lot of features 
in a small package, but these are only 
the high spots. Wirpspeed! has over 30 



tools for casual and advanced users. 
Alien Technologies, a British-based de- 
velopment company, has clearly tried 
to create the ultimate accelerator cart- 
ridge. Future products may topple the 
new king of the speed carts from its 
throne, but right now, Wirpspeed! is 
an indispensible aid for every Commo- 
dore computer owner. 

Cinemaware, 4165 Thousand Oaks 
Blvd., Westlakc Village, CA 91362 
(phone: 805495-6515). -Arnie Katz 



TIPS AHOY! 

Continued from page 44 

•110 POKE R,255-PEEK(R):NEXT 

•120 POKE 4588,56:CHAR,0,0,"[c T][c I][c 

P][c S][SS][c A][c Hj[c 0][c Y][cEP]" 
•130 POKE 2604, 30: WINDOW 0,0,39,24,1 
•140 FOR A=160 TO 191:X$=X$+CHR$(A) :NEXT 
•150 SYS DEC( M CC6C M ), ( 18,4:PRINT X$:A=179 

URND(O) 
■160 CHAR ,4 r 2,X$:BOX 1,30-B,30-B,289+B,9 

3+B 
•170 A=A+1:X=SIN(A/2)*1.9+2:Y=C0S(A/[PI]) 

*1 . 9+2 

•180 CIRCLE 1,91,164,X,Y,,,,30:CHAR ,0,20 
it , ti 

•190 CHAR ,4+(AAND31),4+(7ANDA/32),"+" 
•200 CIRCLE 0,91,164,X,Y,,,,30 
•210 GET A$:IF A$="" THEN 170 
•220 F0RA=14592T014599:P0KEA,0:NEXT 
■230 FOR A=0 TO 13: CHAR ,0,A,"[40" "]":NE 
XT 
•240 GRAPHIC0:LIST 

PROGRAM PAUSER 

Most of us have heard of and used program pausers. With 
the press of a key, the list or execution of a program is 
stopped in its binary tracks, until another key is pressed. 
Program Pauser takes this a step forward. 

Load Program Pauser and change the variable PSWD$ 
to a secret code. (The default is "AHOY!") Run the pro- 
gram. Then, when you wish to pause your 128, press CON- 
TROL and the up arrow key. The computer will pause. To 
restart the computer on its merry way, press RETURN, the 



secret code, and RETURN. 



-Shawn K. Smith 
Bronx, NY 



•100 REM PROGRAM PAUSER — SHAWN K. SMITH 
■ 1 10 F0RD=6912TG6999 : READY : POKED , Y : NEXT 
•120 PSWD$="AH0Y!":L=LEN(PSWD$)-1 

• 130 P0KE6955 , L: P0KE6976 , L : F0RD=DT0D+L 
•140 POKED, ASC(MID$(PSWD$,L+1-P,1)) 
•150 P=P+1: NEXT: END 

•200 DATA 169,023,141,060,003,169,027,141 
•210 DATA 061,003,096,169,173,162,198,141 

• 220 DATA 060 , 003 , 142 , 06 1 , 003 , 096 , 234 , 201 
•230 DATA 094,240,003,076,173,198,032,011 
•240 DATA 027,173,004,010,041,254,141,004 
•250 DATA 010,234,160,002,132,251,032,228 
•260 DATA 255,240,251,201,013,240,243,164 
•270 DATA 251,153,093,027,136,016,237,160 
•280 DATA 002,185,088,027,217,093,027,208 
•290 DATA 225,136,016,245,173,004,010,009 
•300 DATA 001,141,004,010,076,000,027,234 

PRETZEL 

Here's a quick and easy demo of the power of C-128 graph- 
ics and basic trigonometry. Try changing COLOR2 and 
COLOR3, increment of "P", draw coords, and trig formu- 
lae. Add a "DRAWl. . ." statement for a third color. Or "stack" 
drawings by changing "GRAPH IC3,1" to "GRAPHIC3,0" 
and changing other aspects after your first run. The possi- 
bilities are truly endless.... -William D. Wolfe 

Pittsburgh, PA 

10 WIDTH 2 : C0L0R0 , 1 :C0L0R4 , 1 :GRAPHIC3 , 1 : D 
0:P=P+.01:X=60*COS(P*3)+68:Y=60*COS(P*4) 
+105 : DRAW3 , X+22 , YTOX , Y-9 : DRAW2T0X , Y : LOOP 
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IN NEW YORK & OUTSIDE 
USA CALL 

(718)692-0071 



FOR CUSTOMER SERVICE 

CALL MON-FRI/ 9:30 AM- S PM 

(718)965-8686 



WAREHOUSE ADDRESS: 33 34th ST. 
BROOKLYN, NY, 11232 

FOR ORDERS & INFORMATION CALL TOLL FREE 

1-800-345-7058 



OPEN 7 DAYS A WEEK FOR ORDERS: 
MONDAY-FRIDAY 9 AM-8 PM / SATURDAY 
& SUNDAY 9:30 AM-6 PM EDT / 

commodore fto 



OR WRITE TO: 

MONTGOMERY GRANT 

MAILORDER DEPT. 

P.O. BOX 58 

BROOKLYN, N.Y., 11230 



FAX NO. 2125641497 
TELEX NO. 422132HMOLLER 




C'128: 



With Geos 
Program I 

$149.95 
$219.95 



NEW C-128D with Built 

In Disk Drive 

#1 TOD 1 MX EXPANSION MODULE .. 

i 1 7(4 EXPANSI O N MODU LE 

X ETEC J R . INTERFACE 

XETECSR.INTERFACE 

C-1 3 J POWER SUPPLY 



$429 



..tiu.ss 

... ,532.55 



.-t;i.ts 

...tlt,«5 

...«2i.»3 



CM/CMC POWER SUPPLY 

VOLKS 54 10 1 20O BAUD MODEM 

FOR CMC A lit tM.tJ 

1 XCTf C LI. KERNEL 30 MB HARD DRIVES FORI 

CM-C I7<« 

C-1 it 5 84 s 



commodore 

rilSK-DRlVESi^ 

,C^vc!$149.9S 
C'i^Tl>T99.95 

1581 $1 89.95 
1541N $164.95 

MONITORS 




& 



. - B f T JlL 



wa coion uomtoa ti klw 

i om color uontor— k*i 35 

THOMSON HI-RES RGB 

COLOR MONITOR... .J299.95 

MAGNAVOX RGB 13" 

COLOR MONITOR (199.95 



X3MMODORE PRINTERS 

j*JmL> MPS-1000 $169 

""^O MPS-1250 $239 
DPS-1101 DAISY aj cq 

'WHEEL PRINTER * I 33 




IN STOCK-CALL FOR LOWPR1CE! 

\ AMIGA 500W/W84 $779 

| AMIGA SQO/W84/1010. $979 

AMIGA 2000 IN STOCK 

ALLIPERIPHERALS IN STOCK 

AMI S1»K EXPANSION ■ A-1010 3.5- FLOPPY 
DRIVE'A-1020T 5.25" DISK DRIVE WITH TRANS- 
FORMER ■ A-2088D BRIDGE CARD • A-10B4 RGB 
COLOR MONITOR ■ A-1680 MODEM ■ A-f080 
SIDECAR ■ A-2O90 HARD DRrVE CONTROLLER 
FOR A2300 ■ A-ZDtO 3.5" INTERNAL DISK DRWE 
FORA-3000-A-2052SMBEXPANSION FORA-2000 
SUPRA 20 MB HARD DRIVE FOR A 500 S-SS9 






CM28: 



COMPUTER 
PACKAGES 







#1 COMPLETE PACKAGE 

COMMODORE 128 COMPUTER 
COMMODORE 1541 DISK DRIVE 
12" MONITOR 
COMPUTER PRINTER 



$469 



COLOR MONITOR 
ADDSTlO 



TO SUBSTITUTE 1571 FOR 
'.'.I! - ADD 160 




#2 DELUXE PACKAGE 

"COMMODORE 128 COMPUTER 
COMMODORE 1571 DISK DRIVE 
COMMODORE 1902RGB COLOR MONITOrI 
COMMODORE 1515 80 COL PRINTER 



$659 



SPECIAL! 

C-128/D DELUXE PACKAGE 
C-128 COMPUTER W/ BUILT-IN 
DISK-1902 RGB COLOR MONITOR 
• COMMODORE COLOR PRINTER 



$639 



COMPUTER 
PACKAGES 




#3 COMPLETE PACKAGE 

COMMODORE C-64/C COMPUTER 

COMMODORE 1541 DISK DRIVE 

COMPUTER PRINTER 

12- MONITOR 

GEOS SOFTWARE PROGRAM 



$349 



COLOR MONITOR ADD$7 tQ 
#4 COLOR PACKAGE 

COMMODORE C-64C COMPUTER] 

COMMODORE 1 54 1/C DISK DRIVE 

COMPUTER PRINTER 

COLOR MONITOR 

GEOS SOFTWARE PROGRAM 



^cippla 



PACKAGES 




■Apple IIC Of HE Computer 

■ 5.25" Drive . 1 2" Monitor All 

Hook-up Cables & Adaptors 

Package of 10 Dlskelles 

APTLC lie apple HE 

$579 $779 

MACSE. ---- 



MAC SE W/30MB APPLE 
• t\>E.. 



41 Mt 



HARD DRt*E.„_.„____..„_.«S»l 

IM AQ EWR FT E R 1 1 P r I nttr .MSI 

APPLE MAC t PACK t IHI 

APPLE IIQSw/APPLE 
RaBCOLOH MONITOR* 



3 J- DISK DRIVE. 



,*1J7» 



LEADING EDGtA 



LEADING EDGE 

MODEL D PACKAGE 
IBM PC/XT COMPATIBLE 




512KHAM Computer Key- 
board ;iGOK Floppy Drive 
4.7-7. 1 6 MHi, I2 y Monitor 
SODU-2 Processor 



$729 



SAME PACKAGE OODOl 

W/)0 MB KANO DRIVe3>909| 



PRINT 



SEC 

P-6 ..$439.95 

P-2200... $349 95 

TOSHIBA 

PS-321 SI $479.95 

EPSON 

FX-86E $309.95 

FX-286E $449.95 

LQ-500 $319.95 

LQ-800 $399 95 

LQ-850 $48995 

LQ-1050 $669 95 

EX-1000 I479..B5 

LX-B00 $199.95 

Panasonic 

10801-11 $159.95 

1092i $2B9 95 

1091I7II $189.95 



I 


ster* 




NX 1000 $169.95 1 




NX-1000 Rainbow ...$219.95 




NX-15 $289.95 1 




NB-2410 $409.95 1 




NB2416 $539.95 1 




OKIDATA 




OKIDATA 120 $199.95 1 




OKIDATA 180 $219.95 1 




OKIDATA 183 $299.95 1 




OKIMATE20with 




Plugn'Ptim. $189.95 1 




HP LASERJET 




Sariesll $1629 I 




<£ <' SANYO 




\^* PR-3000 DAISY t 




WHEEL LQ PRINTER $SS50 | 




IBM PC, -XT 

COMPATIBLE PKG 

51 2K RAM Expandable lo 
640K 3GQK Floppy Disk 
Drive 12" Monilor 



$499 



I SAME PKd. W/20MB 
j HARD DRIVE 



$729 



SEAGATE 



i« VE $269 



1 jn MP. HARD D 
W/ CONTROLLER 



| 40 M« HARD DRIVE 4 JO MB HARD 
DRIVE NOW IN STOCK! 



$478 



SPECIAL! 

commodore 

PClO-ll 




PROFESSIONAL PACKAGE] 
PC 1 0-1 Computer 51 2K 
Expandable to 640K 360K 
Disk Drive Ennanced 

Keyboard Serial A Parallel 
Ports 12' Monitor Ail 
Hook -up Cables a Adaptors 
Packaged lOOiskelles 



$499 



SAME PACKAGE 7CQ I 

W/M MB HARD DRIVE * f OS? 



■WIUWUMUI. Prietl ■mJ.v.U.brliLy»ubf»c1 to chinpt withoul nol«. Nol noponpioft lor typographic mora 
Rtlurn at (Wt»eti« mnciWHtiw null ti«w filial tuwa «ulfioruition numbir. or niuini will not bt accapud. IBM PC/XT 



Render Saivlc* No. isa 
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ECHELON is a true flight simulator which takes you to the edge of our solar system. 
Through the retrieval ot artifacts and Information, you must find the solution to a 
series of mysterious and puzzling events happening inside the area. ' Echelon ' also 
Includes 'The LipStik', Voice Activated Control Headset. Retail price is $44.95. 

WORLD CLASS LEADER BOARD - Find out why 'World Class' Leader Board is the 
most popular golf simulation program ever! 'World Class' features 3 famous 
courses with outstanding graphics and realistic play. Retail price Is $39.95. 

FAMOUS COURSES OF THE WORLD - These disks are available lor use with your 
'World Class' Leader Board for $19.95. 

VOL. I - Features Harbour Town, Sunningdale, Dorado Beach and Pine Ridge. 

VOL. II - Features Pebble Beach, Muirfield, Colonial Country Club and 

Glenmoor Country Club. 

VOL. Ill - Features Sawgrass, Royal St. Georges, Bamlf Springs and 

Firestone Country Club. 

LEADER BOARD TRIPLE PACK - Features 'Leader Board', 'Tournament Disk #1" 
and 'Executive Leader Board' (or $19.95. 



VOICE ACTIVATED 
CONTROL HEADSET 

"ACCESS" 

Solrwjr? intoeporattd 



TRIPLE PACK - Features 'Beach Head", 'Raid Over Moscow', and 'Beach Head II' 
for the incredible price of $1 9.95. 

MACH 128 - Load your C-64 or C-128 programs 7 times faster with this utility 
cartridge. Now works with the 1541, 1571 and the new 1581 disk drives. Retail 
price is $49.95. 

LIPSTIK PLUS - 'The Voice Activated Control Headset' is used with your joystick 
and gives you a greater feeling of power and control. You'll find ydurself more 
absorbed In the action than you ever thought possible. Retail price is, $24.95. 

II you can't lind oj r products al your local 
dealer, you can order direct. For matt 
orders, enclose check or money order, plus 
St. 00 stripping and handling, and specify 
mac nine version desired. Order By phone 
i *" on VISA. MasterCard or CO 0. by calling 
TOLL FREE (»0O| 6J4 2549. 
ACCESS SOFTWARE. INC. MS W. 550 S„ 

Software incorporated smte 130, boutium. in moio 



